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Norgh — the mercenary 
Mansion to protect the magical key. 


The House that James Built - 
Introduction 

It is well known across the land that“ m ewhere^sWeSUame^sMaj»««» 
is a gem worth more credits than there are , in *^ r ^ e f unp | e asant inhabrta* 
been taken from the Mansion because of the ters aro und. 

Mortlemii, Dino and Norgh, three of the nasties 

Your job is simple, you must steal the valuable 9®*^^ 
But beware, you cannot leave the castle until you 

COMMANDS THAT CAN BE USED IN THIS ADVENTURE- 
To move around: 

GO direction 
WALK direction 
RUN direction 
MOVE direction 
To pick things up: 

TAKE object 
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GET object 

To drop things- 

DROP object 
To attack monster 
KILL name 
S LAY name 
gTAB name 
FIGHT name 
nther commands. 

INVENTORY (lists the objects you are carrying) 
USE object 

PRINT SCORE (displays your current score) 

PRINT STRENGTH (displays your fighting strength) 


Happy adventuring! 

10 REM The House That James Built 
20 GO SUB 870: REM INTIAL 
30 POKE 23658,8: LET SC=0: LET CH=0- L 
ET P*="": LET Z=2 
40 PAUSE 50: CLS 
50 GO SUB 1150+<z*30) 

60 IF chOz THEN LET ch=0 

70 GO SUB 760 

80 GO SUB 1560 

90 INPUT "WHAT DO YOU WANT TO DO NOW? 

"5 LINE A# 

100 GO SUB 340 

110 FOR A=1 TO LEN A* 

120 IF A*(A)=" " THEN LET M$=A* ( TO A- 
1): GO TO 150 
130 NEXT A 
140 LET M*=A$ 

150 IF M$="STOP" THEN GO TO 1450 
160 IF M$="FIGHT" OR M$="KILL" OR M*="S 
LAY" OR M$="STAB" THEN GO TO 1740 
170 IF LEN M$< 10 AND M*<>"" AND M$="INV 
ENTORY"( TO LEN M*) THEN GO SUB 5B0 
ISO IF M$="TAKE" OR M*="GET" THEN GO T 
0 380 

190 IF M*="DROP" THEN GO SUB 650 
*•00 IF M$~"SCORE" THEN PRINT "YOUR SCO 
RR IS SCORE 

+'10 IF M$="STRENGTH" THEN PRINT "YOU H 
AVE STRENGTH;" STRENGTH POINTS" 

220 IF M$="NORTH" AND Z(Z,1)=0 THEN PR 
INT "YOU CANNOT GO NORTH" 
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CHAPTER NINE: 

Adding a Further Vocabulary 

explained in the last chapter ‘fit into’ an adventure but annth^ the 9raphics we 
;lhis program again is to show you how easy®’ is to a^dtenS wots " 9 

I’m not going to tell you what you can do, or what the new words are You 
easily find out for yourself. oras are - You can 


The history is the same. And all that 
game. 


applied for the older version applies to this 


10 REM The House That James Built 
20 GQ SUB 870s REM INTIAL 
30 POKE 23658,8: LET SC=Os LET CH=0: L 
ET P#= M ": LET Z=2 
40 PAUSE 50s CLS 
50 GQ SUB 1150+(2*30) 

60 IF ch< >z THEN LET ch=0 
70 GO SUB 760 
80 GO SUB 1560 

90 INPUT "WHAT DO YOU WANT TO DO NOW? 
LINE A*: IF A$="“ THEN GO TO 90 
100 GO SUB 340 
110 FOR A=1 TO LEN A* 

120 IF A*(A>=" " THEN 
1): GO TO 150 
130 NEXT A 
140 LET M*=A* 

150 IF M*="STOP" THEN 

155 IF M$="WAIT" OR MT=”PAUSE 

PDER 1; PAUSE 0: BORDER 7 „ 0K » 

156 IF M$="LQQK" THEN PRIN' 

R(Z)=o- BO TO 40 , DC . TW r "I SEE 

157 if M$="EXANINE" THEN F 
hlOTHlMQ SPECIAL": GO TO 40 


LET M$=A$ < TO A 


60 TO 1450 

THEN BO 


LET 




r .. S AVE" THEN SAVE "ADVENT" 


Li 


158 IF - 

NE 40 ms-"LOAD" THEN LOAD "ADVENT 
15’ It ^-FXBHT- OR M*=“KILL" OR M#= „ s 
160 IF taB " then go TO 1/40 

LAY" °t m^-DRINK" THEN PRINT "HA HA, T 
16 ^ER IS POSIONOUS - YOU'RE DEAD.". B 

0 T ° IfJLr, OR M*=S# OR M*=D» THEN PR 

"NAUGHTY, NAUGHTY!.I SHALL HAVE TO 

'WROW YOU OUT FOR SAYING THAT!": Q0 T 

0 ‘* 5 ?r , EN N*<10 AND AND M*="INV 

rMTORY" (TO LEN M*> THEN GO SUB 580 

IF M#="HOBBIT” THEN PRINT "DON'T S 

W iso ! If m°="?ake" OR M*="GET" or h*-pic 

K " M “"HP" 8 0R M*=“SHOUT" OR M*="CA 

1 L" OR M*-"SLEEP" OR M*=“REST" OR M*="SI 
T ii QR^|Ytf.= "LIE" THEN PRINT "YOU ";M$: GO 

TO 40 

\ oA t F Mi="DROP" THEN GO SUB 650 
200 IF M$="SCORE" THEN PRINT "YOUR SCO 
RE IS SCORE 

210 IF M*="STRENGTH" THEN PRINT "YOU H 
AVE STRENGTH; " STRENGTH POINTS" 

211 IF LEN M$>5 THEN GO TO 300 

220 IF M*="NORTH"( TO LEN M*> AND Zi » 

) =0 THEN PRINT "YOU CANNOT GO NORTH 
230 IF M$="NORTH"< TO LEN M40 AND Z » 

)< >0 THEN PRINT "OK"s LET Z = Z (Z , 1 > : 

TO 40 


TO 40 a 2 

240 IF M$="SOUTH" ( TO LEN M*> AND Z 
)=0 THEN PRINT "THERE IS NO EX 1 n ,2 

250 IF M$="SOUTH" ( TO LEN m) AND Z qq 
) <>0 THEN PRINT "OK" : LET Z>Z < Z , *> ■ 

TO 40 

251 IF LEN M$>4 THEN GO TO 300 3) 

260 IF M#*"EAST"< TO LEN M*> w 

=0 THEN PRINT "YOU CAN'T WALK THRU 

ALLS " n ill,# 

270 IF M$~"EAST" ( TO LEN M*> AND * qQ t 
1'° THEN PRINT "OK" s LET Z as Z<Zi' 5) ’ 

0 40 7 ( 7 ,4 > 

200 IF M$s"WEST" ( TO LEN M#> AND 


40 


a 0 THEN 
290 IF 
<>0 THEN 
0 40 


M#-"WEST"< TO LEN MS) AND 7(7 <n\ 
PRINT "OK": LET 2=Z<Z,4) : ^ 


300 LET Z(5,3)=0 
310 IF MS="USE" THEN GO TO 
320 IF LEN A*>LEN MS THEN 
1 TO ): GO TO 110 
330 GO TO 90 


1490 

LET AS=AS(A+ 


340 FOR A=1 TO LEN AS 

350 IF AS (A) < "0" THEN LET AS(A>=" 

360 NEXT A 


370 RETURN 

380 IF O (1 , 1) < >Z AND 0 (2,1 > < >Z AND 0 (3 
l)OZ AND 0(4, l)OZ AND 0(5,1)<>Z THEN _ ’ 
PRINT "I SEE NOTHING TO TAKE": GO TO 40 
390 LET AS=AS(A+1 TO ) 

400 FOR A=1 TO LEN A# 

410 IF AS (A) =" " THEN LET MS=AS ( TO A- 
1>: GO TO 440 
420 NEXT A 
430 LET MS=AS 

440 IF (MS="THE" OR MS="A" OR MS="THAT" 
OR MS="UP"> AND LEN AS>LEN MS THEN GO 
TO 390 

450 IF LEN MS<2 THEN PRINT "DO WHAT ?" 
s GO TO 40 

460 IF MS<1 TO 2>="KN" AND 0(1,1>=Z THE 
N PRINT "OK": LET Z(Z,5)=0: LET 0(1,1)= 
0: LET STRENGTH=STRENGTH+50: GO TO 40 
470 IF MS(1)="C" AND 0(2,1)=Z THEN PR I 


TO 40 


Lb. f L ( L , 




480 IF MS(1)="B" AND 0(3,1)=Z THEN PR I 
|T "OK": LET Z(Z,5)=0: LET 0(3, l)-Oi GO 

MO" AND Z(Z,6)=l THEN 

DI" OR MS( TO 2>="DR 


NT 

TO 40 
490 IF MS< TO 2) 
GO TO 1760 
SCO IF (MS< TO 2) 


Jl- ( [ LJ UP, 

"> AND Z ( Z , 6 > =2 THEN GO TO 1760 
510 IF MS ( TO 2) 33 "NO" AND Z(Z,6>=- THEN 

PRINT "FIGHT WHAT: 


MS ( . 

GO TO 1760 
520 IF PS="F" THEN 

s LET PS®"": GO TO 40 7 thE 

530 IF M*(l JO 2)="KE" AND 0(4,1>-Z ™, 
1x1 PRINT "OK": LET Z<Z,5)= S 05 LET 0 1 
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0i G0 ,J°m* a)-"G" AND 0(5,1) =Z THEN 
540 nJ«, LET 0(5,1>=0: LET Z(Z,S>= 0! 
NT "OK ■ ur ' 

™ 4 V M*(i TO 2>="KE" AND 0(4,1)= 0 
od Lt "OK": GO TO 1510 
N -aS FM#(1)- m B h AND 0(3,1)=0 THEM 
w f: 0 K": GO TO I960 

N La | CT M** ,,H * G0 T0 440 

^ FOR A*1 TO 5: IF 0<A,l>-0 THEN 


TO 610 
'=590 NEXT A 

600 PRINT "YOU ARE CARRYING NOTHING 


PRl 

GO 

the 
PR I 


GO 


: r 


610 PRINT "YOU ARE CARRYING;" 

620 FOR A-l TO 5: IF 0<A,1)«0 THEN PR! 
NT "THE M ;0$(A) 

625 POKE 23692,-1 
630 NEXT A 
640 RETURN 

650 IF 0 (1,1 > <>0 AND 0(2,1)<>0 AND 0(3, 
1) < >0 AND 0 (4,1) < >0 AND 0 (5,1) < >0 THEN 
PRINT "YOU HAVE NOTHING TO DROP": GO TO 
40 

660 LET A$=A$(A+l TO ) 

670 FOR A=1 TO LEN A* 

680 IF A* (A)-" " THEN LET < TO A- 

1): GO TO 710 
690 NEXT A 


700 LET M$-A* 

710 IF N$="THE" OR M$="A" OR M$="THAT" 
THEN GO TO 660 

720 FOR A=1 TO 5: IF M$ ( TO 3)=0^(A, TO 
3) THEN LET 0(A,1)=Z: PRINT "OK": GO T 
0 40 


730 NEXT A 

740 PRINT "DROP WHAT'?" 

750 GO TO 40 

770™n=i }o 5 <Z ’ 6K>0 ™ EN RETUI 

790 NEX?^’ 1 ^ 2 ™ EN G ° T ° 820 
800 IF 7 <7 l. \ • • 

810 PRINT ,’,t K>0 THEN return 
URN INT 1 CAN SEE NOTHING HERE' ! 

830 print "i CftN SEE „ 
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830 FOR A =1 TO 5 
840 IF 0 (A, 1) = Z THEN rr Int 
) IHE "50$(A 

850 NEXT A 
860 RETURN 

870 DIM R (9) : LET STRENGTH=lor> , 

RE-0: DIM Z (9, 6 ) : DIM 0 <* V °* LET SCO 
0) 0,2)8 D IN 0$(5,1 

871 BORDER 7: PAPER 7: JNk - 1 
880 FOR A —1 TO 9 

890: FOR B =1 TO 6 

900:: READ Z(A,B): NEXT B 

910 NEXT A 

920 FOR A=1 TO 5 

930: READ 0$(A),□(A, 1 ),0(A 7 ) 

940 NEXT A ' 

^950 DIM N$ (3,10): DIM M(3,2): FOR A =1 T 

960 READ N$(A),M(A,1),M(A,2): NEXT A 

961 LET F$-CHR$ 70+CHRS 85+CHR* 67+CHR$ 

^962 LET S$“CHR$ B3++CHR* 72+CHR* 73+CHR 

96o LEI D$==CHR$ 80+CHR* 73+CHR* 83+CHR$ 

970 RETURN 
980 REM DATA FOLLOWS 
990 DATA 0,4,2,0,1,0 
1000 DATA 0,0,3, 1 , 0,0 
1010 DATA 9,0,0,2, 0,1 
1020 DATA 1,7,5,0,2,0 
1030 DATA 0,0,0,4,0,2 
1040 DATA 0,0,0,5,5,0 
1050 DATA 4,0,8,0,3 ,3 
1060 DATA 0,0,0,7,4,0 
1070 DATA 0,0,0,0,0,0 
1080 REM OBJECT DATA FOLLOWS 
wo DATA "KNIFE", 1,0 
1100 DATA "CROWN",4,0 
1110 DATA "BUCKET",7,0 
1120 DATA "KEY", 8 ,5 
:J ° 0 OATA "GEM", 6,0 
1140 REM MONSTER DATA 
1J50 DATA "MORTLEMII",3,1 
■ 160 DATA "DINO",5,3 
1190 DATA "NORGH",7,1 
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o , n -0 THEN GO SUB 2000: 
1180 IF R(1 ' 

1190 htmt "The West Wing" 

1185 PRINT are ex its East 

U90 PRI NT 

1200 BETU^ then BO SUB 2500: 

1210 IP R '*' " 

PRIN T "The water room" 

I220 PRINT ' "There is a beauti ful 


GO tq 


and So 


GO TO 


Font t 


there are exits both Eas 


GO SUB 3000: GO TQ 


Beware, do not 
completed y 


GO TO 


cTthenorth and 
t and West." 

1SS STS5.-0 THEN 

1250 

,«/ic PRINT "The East Wing. 

1250 PRINT '"There is an exit West and 
n open doorway North. 

go North unless you have 
our task ! 11 
1260 RETURN 

1270 IF R(4)=0 THEN GO SUB 3500: 

1280 

1275 PRINT "The Inner Chamber" 

1280 PRINT '"There are doors North and E 
ast. There is also a stairway leadingup 
to the South." 

1290 RETURN 

1300 IF R(5) =0 THEN GO SUB 4000: GO TO 
1310 

1305 PRINT "The Library" 

1310 PRINT '"There are, unfortunatelyi n 
o books on the shelves and the onl 
y exit is West." 

1320 RETURN 

1330 IF R(6)=0 THEN GO SUB 4500: GO TO 
1340 

lo;-4 PRINT "The Gem Room" 
lo 40 PRINT '"It is very cramped in this 
smaUroom, and the only exit is West. 1 
1350 RETURN 

1360 IF R (7) =0 THEN GO SUB 5000: GO TO 
1370 

1^70 pd! NT " The State Bedroom" in 

ful I T '" This i* the largest rooiJ» J 
hole house, and it is decorated 
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h many fine treasures. T h^» 
orth, down the stairsand East^! S * its N 

e window." ast through th 

1380 RETURN 

1390 IF R (8> =0 THEN GO Sim 

1400 SUB 550 °: GO TO 

1395 PRINT "The Balcony- 

1400 PRINT '"The only exit i« fK 

e window, West." through th 

1410 RETURN 

1420 PRINT "This is the Outc-i ,, 

1425 POKE 23692,-1 tside World." 

1430 IF 0(5,1)=0 THEN GO TO 1470 
1440 PRINT '"You have not fulfills 

purpose. The Gods have ^ ^ 
ouri zed you." va P 

1450 PRINT "YOU MANAGED TO SCORE " • SCORF 
, "POINTS": INPUT "Another game^ (Y/m-n 

:uVt£ hv " or g ^" yes " « ,9 

!4 7 0 PRJNT -..wen do„ e , you have eBcaped 
withthe magical gem. The people npwthi 
nk of you as a hero!" 

1480 GO TO 1450 

1490 IF Z< >5 AND (0(4,1)00 OR 0(3,1)00 
) THEN PRINT "You can't do that'": GO T 
0 40 

1500 GO TO 390 
1510 LET Z(5,3)=6 
1520 LET SC0RE=SC0RE+30 
1 vjoO PRINT '"A door yawns open East." 
1540 PRINT '"Hurry, it will close if you 
are not quick." 

1550 GO TO 90 

1560 IF Z(Z,6)< >0 THEN GO TO 1580 
1570 RETURN 

1580 POKE 23692,-1: PRINT "LOOK OUT, THE 
RE'S A ";N*(Z(Z,6>) 

1590 POKE 23692,-1: PRINT "IN THIS ROOM 1 

1600 PRINT "THE N$ (Z (Z ,6)); "ATTACKS... 

161° FOR p =i TO 100: NEXT p 
1615 POKE 23692,-1 
1620 IF RND*STRENGTH<20 
6°° PRINT '"but you escape 


THEN 60 TO 161 
• • clutche 
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prINT^" and he HITS!" 

16 SVl TO 100s NEXT p 
[X IF R 5d*STRENBTH<30 THEN 
1680 PRINT "Your weakened, bu 


GO TO 


i alive. 

J 690 le t STRENGTH-STRENGTH-1 NT (RND*30) 
1700 RETURN 

1710 PRINT "With one -fell swoop he cleav 
e5 your skul 1 " 

1720 PRINT "You are dead. 

1730 GO TO 1440 

1740 IF Z (Z , 6 ) =0 THEN PRINT "THERE'S NO 
THING HERE TO ";M$: GO TO 40 
1750 LET P*="F": GO TO 390 
1760 LET P**"" 

1770 PRINT "OK": PAUSE 100: CLS 

1780 PRINT "YOU ATTACK THE " 5 N$ (Z <Z , 6 ) ) 

1790 FOR P=1 TO 100: NEXT P 

1800 IF RND >.,6 THEN GO TO 1850 

1810 IF 0(1,1) =0 THEN GO TO 1850 

1820 PRINT '"But you miss" 

1830 LET STRENGTH=STRENGTH-1 NT <RND*20> + 
10 

1840 GO TO 40 

1850 PRINT "AND HIT! ! " 

1860 LET SC0RE=SC0RE+5 

1870 FOR p=l TO 100: NEXT p 

1880 IF 0 (1,1) =0 AND RND*STRENGTH>60 THE 

N GO TO 1920 

1890 PRINT "but he is still standing." 
1900 LET STRENGTH=STRENGTH-1 NT (RND*20> + 
10 


1910 60 TO 40 

192o PRINT "You have killed the drea 
)N$(Z(2,6)) 

1930 L.ET Z (Z , 6 ) =0 

CQRE+50 

H 6 °nn R n^ T "' rhe magical bucket jams 
■floor ^ *, n ° S Dino falls to 

and dies. 
aisapp ear< " 

1980 8 CQRE- SC 0 r E+ 2 o 

0 ( O , 1 ) =a 1 Q s LET M (2,l) = 


The bucket and the 


:10s 


46 


(Z,5> = 0 : LET Z(Z, 6>=0 
1990 PAUSE 200: GO TO 40 
2000 LET R( 1 )= 1 ; INK 2 
2010 RESTORE 2000 
2020 PLOT 0,88 
2030 FOR 1=1 TO 2: • READ a b 
2040 DRAW a-PEEK 23677, b-PEEK 2-67A 

2050 NEXT 1 -678 

2060 REM 

2070 DATA 128,115,255,88 

2080 PLOT 44,97 

2090 FOR 1=1 TO 3: READ a,b 

2100 DRAW a-PEEK 23677,b-PEEK 

2110 NEXT L —'678 

2120 DATA 44,162,76,167,76,104 
2130 PLOT 128,115: DRAW 0,60 
2140 PLOT 70,166: DRAW 0,-61: DRAW 6 o 
2150 PLOT 70,130: DRAW -24 6 ’ 

2160 PLOT 161,109: FOR L=1 *70 4 : READ A, 

2170 DRAW a-PEEK 23677,b-PEEK 23678 
2180 NEXT L 

2190 DATA 161,153, 1 79, 165, 195,147,195,10 


DRAW -a 0 -- 161 ’ 108 * DRAW 8 ’ 2: DRAW ° ,45: 
2210 PLOT 169,155: DRAW 1 0, 1 0 
2220 PLOT 169,130: DRAW 26,10 
2250 INK 1 

--■*•-60 PRINT AT 12,0; "This is the West Win 
9 of the house." 


2270 POKE 23692,-1 


2300 RETURN 
2500 LET R(2)= 1 : INK 2 
RESTORE 2500 

^520 PLOT 0,88: DRAW 35,25: 
r~S30 PLOT 4,90: DRAW 0,84: 
DRAW 0,-50: DRAW -8,0: DRAW 
,0 


DRAW 0,62 
DRAW 22,-17: 
0,50: DRAW 8 


2540 PLOT 
2550 PLOT 


LM-VHW 


v ri -u 1 18,113: DRAW -13,0 

no * 0 PL0T 35,113: DRAW 70,0: DRAW 3,-3: 
DRAW -3,-3: DRAW 60,0,1.2: DRAW -3,3: DR 
3,3: DRAW 70,0: DRAW 0,62 
* 57 0 DRAW 0,-62: DRAW 20,-25: DRAW 0,85: 
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3 , 
,2: D 
5: DR 


-6: DRAW 0,-63: DRAW 11,0 
DRAW 110: DRAW 53,0,.7: DRAW 

258° PLOT 1^; 1 draw 5fSl DRAW - , 

3 . DRAW draw 0,-5,2: DRAW 

RAW -67,0,.v. 

AW ?’o?At 107.118: DRAW 58,0,.9 
2600 PLOT 110,126: DRAW 50,0,. 7: DRAW - 5 
0,0,-7 

^m^O INK 1 

2630 PRINT AT 12,0; "This is the Water Ro 
om. " 

2640 RETURN 

woo LET R(3) =1: INK 2 

30io PLOT 0,88: DRAW 40,30: DRAW 215,0 
3020 PLOT 40,118: DRAW 0,57 
3030 PLOT 3,90: DRAW 0,83: DRAW 25,-7: D 
RAW 0,-57: DRAW -24,0 

3050 PLOT 95,118: DRAW 0,50: DRAW 40,5: 
DRAW 40,-5: DRAW 0,-50: DRAW -10,0: DRAW 
0,45: DRAW -60,0: DRAW 0,-45 
3060 DRAW 60,20,-.2: DRAW 0,10: DRAW -60 
,0: DRAW 0,5: DRAW 30,-5,. 2 
3070 LET X=107: LET Y=150: GO SUB 9000 
3080 PLOT 107,150: DRAW 8,0 
3085 INK 1 

3090 PRINT AT 12,0; "This is the East Win 

g. " 

3100 RETURN 

3500 LET R(4) =1: INK. 2 
3510 PLOT 0,88: DRAW 255,0,-. 5 
3520 PLOT 10,90: DRAW 0,70: DRAW 30,3,-* 
2: DRAW 0,-65: DRAW -3,2: DRAW 0,63 
3530 PLOT 36,120: DRAW -26,0 
3540 PLOT 111,105: DRAW 0,63 
~-2i DRAW 0,-63 
3550 PLOT 111,150: DRAW 34,0 
-'‘t 0 nr° T 210 » 9 7: DRAW 0,65: 
npfn DRAW °’~ 67s DRAW 0,5 
?’- 5! DRAW 25,-10 

AW ^ n L °I 2l0 ’ 97: DRAW 5, _ . 

AW -’S' ° RAW °’ 5: DRAW 5,0: DRAW 0, 

AW -’ S' S RAW °’ 5s DRAW 5,0: DRAW 0, 

3580 PLO? R ^ ~ 5 ’ 0S DRAW 5,-1 
3590 pSSt ? 20 ’ 107! DRAW 20,-8 
3600 ploy ; 2 2 ,U2: DRAW 20,-8 
3610 p L oy ^,112: DRAW 15,-6 
-25,117: DRAW 15,-6 


DRAW 34,0, 


DRAW 30,’ 


DRAW -25,1° ! 

_. r 

: DRAW 0,J» r 
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3620 rLul 230,117: DRAW 10 -4 
3630 PLOT 230,122s DRAW lo ’-4 
3640 PLOT 235,122: DRAW 5 I 2 
3650 INK 1 

ather" RINT ^ 12 '° ! '' This *■ the I nner Ch 

3670 RETURN 

4000 LET R <5)=1: INK 2 

4010 PLOT 0,88: DRAW 27,20: DRAW 200 o- 

DRAW 27,-20 

4020 PLOT 29,110: DRAW 196,0: DRAW 0 8- 
DRAW -196,0: DRAW 0,-8 ’ 

4030 PLOT 29,120: DRAW 196,0: DRAW 0 8- 

DRAW -196,0: DRAW 0,-8 

4040 PLOT 29,130: DRAW 196,0: DRAW O 8- 

DRAW -196,0: DRAW 0,-8 

4050 PLOT 29,140: DRAW 196,0: DRAW 0 8- 

DRAW -196,0: DRAW 0,-8 

4060 PLOT 29,150: DRAW 196,0: DRAW 0,8: 

DRAW -196,0: DRAW 0,-8 

4070 PLOT 29,160: DRAW 196,0: DRAW 0,8: 

DRAW -196,0: DRAW 0,-8 

4080 PLOT 27,170: DRAW 200,0: DRAW 27,5 

4090 PLOT 27,170: DRAW -27,5 

4100 PLOT 27,170: DRAW 0, -62 

4110 PLOT 227,170: DRAW 0,-62 
4120 INK 1 

4130 PRINT AT 12,0;"The Library" 

4140 RETURN 

4500 LET R(6)=1: INK 2 

45 10 PLOT 0,88: DRAW 50,20: DRAW 127,0: 
DRAW 50,-20 

4520 PLOT 0,175: DRAW 50,-20: DRAW 127,0 
: DRAW 50,20 

4530 PLOT 180,108: DRAW 0,47 

4540 PLOT 50,108: DRAW 0,47 

45 50 PLOT 10,92: DRAW 0,60: DRAW 20,-5: 

DRAW 0,-47: DRAW -4,0: DRAW 0,46: DRAW - 

16,4 

4560 PLOT 26,108: DRAW -16,0 
4570 INK 1 

4580 PRINT AT 12,0; "The Gem Room" 

4590 RETURN 

*V°° LET R (7) =1: INK 2 All 77 . P 

°010 PLOT 0,88: DRAW 30,10: DRAW 3, 

L0T 30,98: DRAW 30,0 
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..| 0 50 : DRAW 30,0,-3 
5020 DRAW » drAW 70?0 

. DRAW ' 30 ,Ov Qi DRflW 0 , 70 . 

5030 PLOT 13 ’ _ 2f - 2 : DRAW 

°JraS'-?,o^ draw -10,10 

°’ L DRAW -20,0,-2: DRAW 
DRAW 0,-55: DRAW 


: DRAW 0,- 5o 

DRAW 70,0: 
“2,2: DRAW 
,-2: DRAW ~ 2 
- 10 ,- 10 ,- 2 : 
“2,-2: DRAW 


-040 PLOT 134,96: DRAW 62,0: DRAW 0,5: D 
raw‘-62,0: DRAW 0,7: DRAW 62,0: DRAW 0,2 
• DRAW -5,10: DRAW -52,0: DRAW -5,-10: D 
RAW 5,10: DRAW 5,5,-1.5: DRAW 42,0: DRAW 


5050 PLOT 142,124: DRAW 0,22 

5060 PLOT 145,125: DRAW 0,29 

5070 PLOT 184,125: DRAW 0,29 

5080 PLOT 187,125: DRAW 0,22 

5090 PLOT 200,98: DRAW 25,0: DRAW 30,-10 

5100 PLOT 225,98: DRAW 0,77 

5110 PLOT 232,105: DRAW 0,40: DRAW 15,0, 

-3: DRAW 0,-43: DRAW -15,3 

5120 INK 1 

5130 PRINT AT 12,0; "The State Bedroom" 
5140 RETURN 


5500 LET R( 8 )=1: INK 2 

5510 PLOT 60,140: DRAW 135,0,2: DRAW -13 
5,0,-. 8 : DRAW 5,0: DRAW 125,0,. 7: DRAW 5 


,0 

5520 PLOT 90,133: DRAW 0,30: DRAW 75,0,- 
1: DRAW 0,-30: DRAW -4,-1; DRAW 0,29: DR 
AW -67,0,1: DRAW 0,-29 

5530 PLOT 127,130: DRAW 0,40: DRAW 2,0: 
DRAW 0,-40 


^o40 PLOT 95,150: DRAW 17,17 
PL0T 95,130: DRAW 32,32 
5560 PLOT 11A 1-71. nr.A!.i . 


DRAW 10,10 
DRAW -20,20 
DRAW -23,23 
DRAW -7,7 
DRAW 0 


5560 PLOT 116,131: 

5570 PLOT 116,131- 
° 580 PLOT 126,141- 
5590 PLOT 126,161: 

^0° PLOT 150,131: 

: ! DRaSV 8 ’" 15! PLQT 158,132: L. 

5*10 INK’! 31 DRAW DRAW -20,0 

5630 retup N AT 12 ’°? "The Balcony" 

9000 LET S=255: LET st-li LET i-0 


DRAW 10 , 

- 8 , 
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9010 

9020 

9030 

9040 

9050 

9060 

9070 

9080 

9090 

9100 

9110 

9120 

9500 

9510 

9520 

9530 

9540 

9550 




GO SUB 9500 


L - c - * ne= 1 


LET n=o 


LET h=0 
LET he=-l: LET n=l 
GO SUB 9500 

H 11 *“?*' LET st=-l- LET i =-], 

LET h 1 ■-i: LET he=l: LET n=0 
GO SUB 9500 
LET h=0 

LET he=-l: LET n=l 
GO SUB 9500 
RETURN 

FOR a=x+i TO s STEP st 
FOR g=y-n TO h STEP he 

IF PQINT (a,g) = l THEN GO TO 9550 
PLOT a,g 
NEXT g 

IF POINT (a+st,y+he> =1 THEN RETURN 


9560 NEXT 


9570 RETURN 


Is There Anything Else? 


Before we dive into the lengthy games programs, it might be best to tie up the lose 


f ee ! rom the last P ro 9 ram > it is easy to change a program to your own 
eas and to add your own vocabulary. 


been y ° U ma ^ have noticed is the time it takes to draw the room. This has 
savinn i nrfi? by only drawin 9 the room once, unless you ask for another view by 
apt You could a,so cut down the number of pictures. It’s not often you 

9et a P ,c ture for every location. 


andthp n da S0 St0re the desi 9 ns as SCREENS on Microdrives, if you have them, 
LOAD *«’ ', nstead °t calling a subroutine to draw the picture you only have to say 
desiqn JV : " roo,T1 numberSCREEN$. Of course you will have to draw up your 
Cor nDliraH C L Save on cartridge, but this method allows your design to be as 
to storinn rJ ? s you want - If you have a Microdrive, then its use need not be limited 
UDg-o 9 P'ctures. It can be used to store the location description, data and any 
y°u may wish to use. 


P r ° y gram a ^ ture is really cramped for space you could Merge parts of the 
j^®n they are needed. Remember when you save a P^° g ^ y ° dl ^ e a 
erro^ 6 main pro 9 ram > do not save it as a LINE 1, etc,. This P 
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CHAPTER TEN: 

Some Games to Adventure With 

—sa 


Fantasy Mansion by Peter Shaw 

Far away, in a land where the mighty rule, there is a dark mansion. This mansion 
was built before the great lords dwelt in Middle Mars, but long after the collapse of 
the Hasmanic Empire. It is only inhabited by creatures of the Scutlean Order, and 
is therefore feared by mortal men. 

For you, this mansion had no significance, until you got into a fight in the Metri 
system with a Demi-wolf from Scutt. The Demi-wolf had friends and before you 
could say ‘Scutt off!’ you were taken by the Scutt Mobsters and put into this 
mansion where it was expected you’d live no more than a day. 

This is where our adventure opens. It is early evening and you must escape from 
the mansion before they get you. 



- I- 

20 Gq Sl 

3r -> POKE 


Mansion 
REM INITIAL. 
s LET SC-0: 


LET ch-os 




L 
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ET P*="": LET Z=4 
40 PAUSE 50: CLS 
50 GO SUB 1165+(s*15) 

60 IF ch< >2 THEN LET ch =0 
70 GO SUB 760 
80 GO SUB 1560 

90 INPUT "WHAT DO YOU WANT Tn nn 

LINE A# ' T0 Do MOW? 

100 GO SUB 340 
110 FOR A=1 TO |_EN AS 

120 IF A*<A>-» " THEN LET M*=A$< rn a 
1): GO TO 150 W T0 A ~ 

130 NEXT A 
140 LET M$=A$ 

150 IF M*="STOP" THEN GO TO 1450 
160 IF M*="FIGHT" OR M$="KILL" OR M*="S 
LAY OR MS= "STAB" THEN GO TO 1740 
170 IF LEN M*<10 AND MSO"" AND Mt-.-rwu 

leoTLI 0 .,^ ™ EN 60 SUB 580 INV 

1BU IF M#="TAKE" OR M*="GET" THEN QO T 


0 380 

190 IF MS="DROP" THEN GO SUB 650 
200 IF MS-"SCORE" THEN PRINT "YOUR SCO 
RE IS ";SCORE 

210 IF MS= "STRENGTH" THEN PRINT "YOU H 
AVE "; STRENGTH;" STRENGTH POINTS" 

2U IF MS= "UP" THEN LET MS="NORTH" 

•^12 IF MS="DQWN" THEN LET MS="SOUTH" 
* 20 IF <MS="NORTH" OR MS="N") AND Z<Z,1 
)-0 THEN PRINT "YOU CANNOT GO NORTH" 

*30 IF <MS="NORTH" OR MS="N"> AND Z (Z, 1 
>00 t HEN PRINT "OK": LET Z=Z(Z,1): GO 


TO 40 

240 IF (MS="SOUTH" OR MS="S") AND Z(Z,2 
)==0 THEN PRINT "THERE IS NO EXIT SOUTH" 
250 IF <MS="SOUTH" OR MS="S"> AND Z(Z,2 
><>° THEN PRINT "OK": LET Z=Z(Z,2): GO 
TO 40 

260 IF <MS="EAST" OR MS="E"> AND Z(Z,3) 
"° THEN PRINT "YOU CAN'T WALK THROUGH W 
ALLS" 

270 IF <MS="EAST" OR MS= 
n - : ‘ 0 THEN print "OK": LET 

0 4Q 

280 IF <MS="WEST" OR MS 

55 0 rut-K, _ _ . 


'£"> AND Z(Z,3> 
Z=Z(Z,3): GO T 


"W 


') AND Z(Z,4) 


*”° TH£N PRINT "I SEE 


NO EXIT WEST" 
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"READ" THEN GO 


< z > o 0 riEN <M pRi^ S “OK°= z-z<z?4>: ( ei 4 ; 

310 \f^vsE : °on m 

°‘Hf len a*>len m* then let A*=A*< a+ 
1 to )• GO TO 110 

330 GO TO 90 

340 FOR A-l TO LEN At 

350 IF A*<A)<"0" THEN LET A*(A>— " 

360 NEXT A 
370 RETURN 

■mo IF 0(1, l)OZ AND 0(2, l)OZ AND 0(3, 

1 j < >Z AND 0(4, IX >Z AND 0(5,1) < > Z THEN 
PRINT "I SEE NOTHING TO TAKE": GO TO 40 
390 LET At -At <A+l TO ) 

400 FOR A=1 TO LEN At 

410 IF At (A)*" " THEN LET Mt=At ( TO A- 
1 ): GO TO 440 
420 NEXT A 
430 LET Mt=A$ 

440 IF (Mt="THE" OR Mt="A" OR lit as "THAT" 
) AND LEN At>LEN Mt THEN GO TO 390 
450 IF LEN Mt<2 THEN PRINT "DO WHAT ?" 
: GO TO 40 

460 IF Mt (1 TO 2)="FI" AND 0 (1 , 1 > ~I THE 
N PRINT "OK": LET Z(Z,5)=0: LET 0(1,1) = 
0: GO TO 40 

470 IF Mt (1) = "R" AND 0(2,1)-Z THEN 
NT "OK": LET Z(Z,5)=0: LET Q<2,1>=0 
TO 40 


PR I 
GO 


480 IF Mt (1) ="S" AND 0(3,1)=Z THEN 
NT "OK": LET Z(Z,5)=0: LET 0<3,l)~ As 


TO 40 


THEN 


481 IF Mt ( 1 ) = "K" AND 0(4,1) ~2 .. 

TO 40 LET Z(Z -5>=0= LET 0(4,1) 

NT B "nin AND 0(5,1) B Z THEN 

TO 40 ^ Z(Z - 5 >=°‘ LET 0(S,1)“0' 

49,5 IF M*( rn 


PR I 
GO 


PR I 
GO 


F'RI 

GO 


N GO TO 1760 

511 IF Mt( TO 3) ="JAN" AND 7(7 a, 

N GO TO 1760 U Z( Z» 6)=4 T HE 

512 IF lit ( TO 3)—BLI" AND 7/7 z 

N GO TO 1760 RND Z(z >6)=5 The 

520 IF Pt~"F" THEN PR tkit 
: LET Pt=" " : GO TO 40 FIGHT WHAT?" 

550 IF Mt( TO 2)="KE" fiwn n/, 

PRINT "OK": GO TO 1510 °' 4,1)s ° THEN 

560 IF Mt(l)="S" AND 0(3,i )=o TUChl 
NT "OK": GO TO 1960 2> THEN PRI 

570 LET Mt=”" : GO TO 440 

580 FOR A= 1 TO 5: IF 0(A,l)=n thfw rn 
TO 610 » 0 THEN GO 

590 NEXT A 

600 PRINT "YOU ARE CARRYING NOTHING": R 


ETIJRN 

610 PRINT "YOU ARE CARRYING:" 

N^tST-M 51 IF ™N PRI 

630 NEXT A 
640 RETURN 

650 !F 0(1,1)00 AND 0(2,1)00 AND 0(3 
« ? ND Q<4 '>><>° and 0(5,1)00 THEN 
FEINT 'YOU HAVE NOTHING TO DROP": SO TO 


LET Mt=At( TO A- 


OR Mt="A" OR Mt-"THAT" 


, 1 ) 


IF lit ( TO 3) =0t (A, TO 
Z: PRINT "OK": GO T 


660 LET At~At(A+l TO ) 

670 FOR A =1 TO LEN At 
68 u IF At(A)=" " THEN 
1>! GO TO 710 
690 NEXT A 
700 LET Mt—At 
7 10 IF Mt="THE‘ 

THEN GO TO 660 
720 FOR A=1 TO 5 

□ J 40 THEN LET ° <A 
730 NEXT A 

i?0 PRINT "DROP WHAT?" 

GO TO 40 

PR INT : IF 2 (2,6)0 
2° F0R TO 5 

7Pr! ! F 0 (A, 1) =Z THEN GO TO 820 

next a 

->0 IF Z (Z , 6) < >0 THEN RETURN 
1 J PRINT "I CAN SEE NOTHING HERE": RET 


THEN RETURN 
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URN 

820 

830 

840 

) 

850 
860 
870 
1 (16, 
880 
890 
900: 
910 
920 
930: 
940 
950 
0 5 
960 
970 
980 
990 
995 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1035 
1040 
1045 
1050 
1055 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1155 


PRINT "I CAN SEE" 

THEN PRINT "THE 


8 0* (A 


NEXT a: PRINT 
return 

i ft STRENGTH- 100: LET SCORE-O: DIM 
6,- DIM 0(5,2): DIM 0*<5,10) 

' FOR A=1 TO 16 
FOR B-l TO 6 
. read Z(A,B): NEXT B 
NEXT A 

FOR A“1 TO 5 

READ 0#(A),0(A,1),0(A,2) 

NEXT A 

DIM N$(5 , 11> : DIM M(5,2): FOR A=1 T 

READ N$(A),M(A,1) ,M(A,2) : NEXT A 
RETURN 

REM DATA FOLLOWS 

DATA 6,0,4,0,0,0 

DATA 0,4,3,0,1,1 

DATA 0,6,0,2,0,2 

DATA 2,7,5,1,2,0 

DATA 0,1,0,4,0,3 

DATA 3,8,0,7,5,4 

DATA 4,0,6,8,0,0 

DATA 5,10,0,0,3,0 

DATA 0,11,16,0,0,5 

DATA 13,13,13,13,0,0 

DATA 9,13,13,13,0,0 

DATA 13,13,13,14,0,0 

DATA 12,10,10,10,0,0 

DATA 13,13,15,13,4,0 

DATA 13,13,11,13,0,0 

DATA 9,9,17,9,0,0 

REM OBJECT DATA FOLLOWS 

DATA "FISH",2,0 

DATA "RING",4,0 

DATA "SCROLL",8,0 

DATA "KEY",14,9 

DATA "BOOTS",6,0 

REM MONSTER DATA 

n^TA " SE A PUPAS",2,0 
DATA GOLT",3,0 
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1160 DATA "GORGONZO",5 0 
1165 DATA "JANUS",6,0 ’ 

1170 DATA "BLITTERMITE" 9 0 
1180 PRINT "You are in 1 i„ 

! 185 PRINT ' "There are exi^Nor^'" H 
ast." ■''Orth and E 

1190 RETURN 

1195 PRINT "This is the gal 
1200 PRINT '"There are stairfL 
to the South and an ex if c.J? 9 down 
1205 RETURN ‘ ' St * 

1210 PRINT "This is the gall erv 
1215 PRINT '"There is a staiVwL^" 
own to the South and an exit W^st " nQ d 
1220 RETURN Z West - 

122w> PRINT "You are in a round room " 
1230 PRINT -"There are exits S OU ?h East 
’ Meet and there is a etaireay ’ gei 
ng up to the North." 

1235 RETURN 

1240 PRINT "This is the Guards House." 
1245 PRINT '"There are exits South and W 
est. " 

1250 RETURN 

1255 PRINT "You are in the hallway." 

1260 PRINT '"There are exits North, up t 
he stairs, South or West." 

1265 RETURN 

1270 PRINT "You are in the hallway." 

1275 PRINT '"There are exits North, East 
and West." 


1280 RETURN 
12B5 PRINT "This is the conservatory. " 
1290 PRINT '"There are exits North, Sout 
h andEast." 

1295 RETURN 

lc-UO PRINT "You are in the insect's lair 


1305 PRINT '"There are 

ast. " 

13 10 RETURN 
1390 PRINT "You are in 
1395 PRINT '"There are 
’ East and West." 
1400 RETURN 
1405 PRINT "You are in 


exits South and E 


the Maze" 
exits North, 


Sout 


a small room." 
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opt NT '"There are exits North, So ut . 
‘ 410 east and West." 

1415 R£TU !? N „Thi 5 is the Outside World.- 
1420 P R I^ This 

1430 odtwT '"You have not -fulfilled y OUr 
1440 purpose. The Gods have v ap 

OUri - Z ppTNT U "V0U MANAGED TO SCORE SCORE 
^POINTS": INPUT "Another game? <Y/N)» sg 

i:Tg*-v" THEN RUN 

{470 PRINT '"Well done, you have 
! The people now think of you 


escaped 


ero! " 

1480 GO TO 1450 

1490 IF 0(3,1)“0 

1491 IF 0(4,1)=0 


THEN GO TO 1500 

AND Z--9 THEN GO TO 150 


1495 PRINT "You can't do that!": GO TO 4 
0 

1500 GO TO 390 

1510 LET Z(9,1)=7 

1520 LET SC0RE-SC0RE+3O 

1530 PRINT '"A door yawns open North." 
1540 PRINT '"Hurry, it will close if you 
are not quick." 

1550 GO TO 90 

1560 IF Z (Z , 6 ) < >0 THEN GO TO 1580 
1570 RETURN 

1580 PRINT "LOOK OUT, THERE'S A "jN*<Z(Z 

, 6 )) 

1590 PRINT "IN THIS ROOM!" 

1600 PRINT ' "THE " ; N$ (Z ( Z , 6 ) ) 5 " ATTACKS. 


1610 FOR p =i T0 100 . NEXT p 
*“? n ' RND*STREN6TH<20 THEN 
PRINT '^ut you escape 


GO TO 1650 

his clutches 


1640 RETURN 

650 PRINT -anb HE HITS ,„ 

167D ip pE; 1 T0 100, NEXT p 

1690 PRINT D *v TRENBTH<30 THEN 00 T ° 

1 alive " Y ° Ur weakenecl » but your 

° LET STRENGTHsSTRENGTH-INT <RND* 
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1700 RETURN 
1710 PRINT "With one ten 
es your skull" 1 swoop k« 

1720 PRINT "You are „ „ Cle « 

1730 GO TO 1440 ead “ 

1740 IF Z (Z , 6 ) «o tnpm , 

THING HERE TO " s ‘ M*? GQ "THERE' S No 

1750 LET P$="F"s 6 0 Tn IS 4 ° 

1760 LET P$«»>. T0 090 

1770 PRINT "OK". p AL|C >r 
1780 PRINT "YOU ATTACK the’ 

1790 FDR P>1 TO 100, <Z - 6 > > 

1800 IF RND>.6 THEN rnL 
1810 IF 0(1, !>= 0 THEN rn Tn® 50 
1820 PRINT -"But you 1830 

1830 LET STRENGTH= S TR EN |t H -i nt < Rnd . 20)+ 


10 

1840 SO TO 40 

1850 PRINT "AND HIT!!" 

1860 LET SC0RE=SC0RE+5 
1870 FOR p=i to 10o f ^ 

N^GO 1 ™ 0 !^’" 0 ANt> RND *STRE NeT H>60 THE 

1900 L FT N STRENGTH%tk StiU standing." 

10 STRENGTH=STRENGTH-INT <RND*i 0 ) + 


10 

1910 GO TO 40 

" YOLl haVe killed thG dreaded" 
1930 LET Z(Z, 6)=0 
1940 LET SC0RE*SC0RE+5O 
19 5o GO TO 40 

1965 prtmt D> ’ 5 ™ EN 60 T0 2000 
1> 6 . print "The scroll reads: 

1966 PPTH°r th i ng WhSn Eve Eats Nuts." 

1970 i ft cn The Scr °ll has crumbled!" 

~ E1 SC0RE«SC0RE+20 

1990 PAUHe*^?^ 10 ' LET Z<Z - 6 >=° 

2000 PRINT "th ! B0 ™ 40 

JeepBAD LUCK-* “ 1 h£>S Sent y ° U tD * 

2010 To 1440 
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But what's with that sundial? 

10 REM Loves sweet garden 
20 SO SUB 870 = REM INTIAL 
30 POKE 23658,8: LET SC-O. 
ET PS-"": LET Z=1 


40 PAUSE 50: CLS 
50 GO SUB 1165+(2*15) 

60 IF ch <>2 THEN LET ch=0 


LET 


CH=0: 


L 


70 GO SUB 760 

90 INPUT 9 "WHAT DO YOU WANT TO DO NOW? 

"; LINE AS 
100 GO SUB 340 
110 FOR A=1 TO LEN AS 

120 IF AS (A) =" " THEN LET M*=AS( TO A~ 
1): GO TO 150 
130 NEXT A 
140 LET MS=AS 

150 IF MS="STOP" THEN GO TO 1450 
160 IF MS= "FIGHT" OR MS*"KILL" OR MS* b 
LAY" DR MS="STAB" THEN GO TO 1740 
170 IF LEN MSC10 AND MS< >"" AND MS-" I- NV 
ENTORY" ( TO LEN MS) THEN GO SUB 580 
ISO IF M$="TAKE" OR MS*"GET" THEN GO 
0 380 


190 IF MS="DR0P" THEN GO SUB 650 
200 IF MS="SCORE" THEN PRINT "YOUR su 
RE IS ";SCORE 

« 0 IF MS="STRENGTH" THEN PRINT "YOU H 
AVE"; STRENGTH; " STRENGTH POINTS" 

l I ^="UP" THEN LET MS= "NORTH" , 

F MS="DQWN" THEN LET MS*"SOUTH 

>5 t£^" nort h m o R HS=="N") and z<z. 
HEN pri NT "YOU CANNOT GO NORTH 


60 


230 IF <MS="NORTH" OR 
><>0 THEN PRINT "OK": 
TO 40 


m*="N", and z 
LET Z=Z(Z,l). 


(Z,l 

GO 


250 IF (MS*"SOUTH" OR MS-chT auUTH" 
) < >0 THEN PRINT "OK": LET 1 Z(Z ’ 2 

TO 40 4 -^<Z,2): GO 


260 IF 
=0 THEN 
ALLS" 


(MS*"EAST" OR MS="E") 
PRINT "YOU CAN'T WALK 


AND Z(Z,3) 
THROUGH w 


is 


<>0 THEN 
0 40 

280 IF <MS="WEST" OR MS="W") AND 7(7 41 
-0 IHEN PRINT "I SEE NO EXIT WFST" ’ 
290 IF (MS*"WEST" OR MS="W") AND Z(Z 4) 
<>0_ )T HEN PRINT "OK": LET Z=Z(Z,4>: GO t 


300 LET Z(5,3)=0 

310 IF MS="EXAMINE" OR MS="READ" THEN 
GO TO 1490 

320 IF LEN AS>LEN MS THEN LET AS=AS(A+ 
1 TO )s GO TO 110 
330 GO TO 90 
340 FOR A*1 TO LEN AS 
350 IF AS (A) < "0" THEN LET AS(A)=" " 

360 NEXT A 
370 RETURN 

380 IF 0(1,1)OZ AND 0(2, l)OZ AND 0(3, 

1) < >2 AND 0 (4,1) < >Z AND 0 (5,1) < >Z THEN 
PRINT "I SEE NOTHING TO TAKE": GO TO 40 
390 LET AS*AS(A+1 TO ) 

400 FOR A*1 TO LEN AS 

410 IF AS (A) = " " THEN LET MS=AS ( TO A- 
1): GO TO 440 
420 NEXT A 
430 L.ET MS=AS 

440 IF (MS*"AT" OR MS="THE" OR MS="A" 0 
R MS—"THAT") AND LEN AS>LEN MS THEN GO 
10 390 

450 IF LEN MS<3 THEN PRINT "DO WHAT ?" 

; 00 TO 40 

460 IF MS (1 TO 2)="DA" AND 0(1|1> =Z THE 
N PRINT "OK": LET Z(Z,5)*0s LET 0(1,1 > = 
Us GO TO 40 
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, M1( T0 3 )="BLU" OR M*< TO 3)=.. r 
470 IF ™ z THEN PRINT "OK": LET 

AND 0.4i A/o 1)=0: GO TO 40 

PR I 

NT -0K-. LET ~ ' 

f) ="BLO" AND 0(4,1) = Z THE 
LET Z(Z,5)=0 s LET 0(4,1)= 


OS") BO TO 40 

Z(Z,5)=0: LET „ ^ Q(3il) „ Z THEN 

480 IF M *'‘’ (Z , S >=0: LET 0(3,l>-0. 
NT "OK"! LET 


TO 40 

481 IF M$( T0 

N PRINT "OK": — • ■ 

TO 3)="R0L" AND 0(5,1) =Z THE 

482 IF - LET Z (Z , 5) =0: LET 0(5,1) = 

■’HE" AND Z (Z , 6 ) =1 THEN 
'• AND Z(Z, 6 )= 

PUP" AND Z(Z, 6 )= 

1 AND Z(Z,6)=4 THE 
AND Z (Z , 6 ) =5 THEN 
FIGHT WHAT?" 


: THE 
: THE 


482 IF M* 

N PRINT "OK": 

Os GO TO 40 
490 IF M*< TO 2) 

GO TO 1760 

500 IF M$( TO 3) = PAR 
N GO TO 1760 

510 IF M$< TO 3)= 

N GO TO 1760 

511 IF M$< TO 3)="BLO 
N GO TO 1760 

512 IF M$( TO 2) ="liC" 

GO TO 1760 

520 IF P$="F" THEN PRINT 
: LET P$="": GO TO 40 
550 IF M$( TO 2 )=" IN" AND Z=3 THEN F'RI 
NT "OK": GO TO 1960 

560 IF M$(1)="S" AND Z=3 THEN PRINT "0 
K": GO TO 1510 
570 LET M$="": GO TO 440 
580 FOR A=1 TO 5: IF 0(A,1>=0 THEN GO 
TO 610 
590 NEXT A 

600 PRINT "YOU ARE CARRYING NOTHING": R 
ETURN 

610 PRINT "YOU ARE CARRYING;" 

620 FOR A=1 TO 5: IF 0(A,1)=0 THEN P RI 
NT "THE ";0$(A) 

630 NEXT A 
640 RETURN 

650 IF 0(l,lX>o AND 0 (2,1) < >0 AND 0 
PR Tkit ? N ° 0(4 ’ U <>0 AND 0(5,1)00 THEN 
RINT you HAVE NOTHING TO DROP": GO TO 


670 cnn A$ “AT(A+1 TO ) 
680 R a^) T ? ^ 

I): GO joZ ™ EN 


LET M*=A^< 


TO A" 
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690 NEXT A 
700 LET M*=AS 


710 IF MS="THE 
THEN GO TO 660 
720 FOR A=1 TO 
3) THEN LET 0 
0 40 


0R ”*=“A" OR Mt= ., THAT „ 


5: IF M$< tq 3 
(A,l)=z : pr IN t " 


)= 0$(A, TO 
"OK": GO T 


730 NEXT A 
740 PRINT "DROP WHAT*?" 

750 GO TO 40 

760 PRINT : IF Z(Z,6>00 THEN rfti.pm 
770 FOR A =1 TO 5 RETURN 

780 IF O (A , 1 ) =Z THEN GO TO 820 


/ - * * wU U H/' ) 

790 NEXT A 

800 IF Z (Z , 6 ) < >0 THEN RETURN 

^810 PRINT "I CAN SEE NOThISThere-: RET 

820 PRINT "I CAN SEE" 

830 FOR A=1 TO 5 

^ 840 IF O (A, 1 ) =Z THEN PRINT "THE ";0$(A 


) 

850 NEXT A: PRINT 
860 RETURN 


870 LET STRENGTH= 1 00: LET SC0RE=0: DIM 
4(16,6): DIM 0(5,2): DIM 0*(5,10) 

880 FOR A=1 TO 16 

890: FOR B=1 TO 6 

900:: READ Z(A,B): NEXT B 

910 NEXT A 

920 FOR A—1 TO 5 

930: READ O*(A) ,0(A,1) ,□ (A,2) 

940 NEXT A 

950 DIM N$ (5,11): DIM M<5,2): FOR A=i T 
0 5 

960 READ N$ (A) , M (A, 1) ,M(A,2): NEXT A 

970 RETURN 

980 REM DATA FOLLOWS 


990 DATA 
995 DATA 
1000 DATA 
10 05 DATA 
JO10 DATA 
1015 DATA 
1020 DATA 
J025 DATA 
1°30 DATA 


0,16,2,0,1,0 
17,5,3,1,0,5 
0 , 0 , 0 , 2 ,5, 0 
8 , 8 , 8 , 6 , 0 , 0 
8 ,8, 8 , 2 , 0 , 0 
8 ,7, 8 ,4, 0 , 0 
8 , 11 , 8 , 6 , 0,0 
8 ,5,4, 8 , 0 , 0 
8 , 12 , 8 , 10 , 0,0 
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I03u 

1040 

1045 

1050 

1055 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1155 

1160 

1165 

1170 

1180 


b!#o: 2 :o:o 

DATA 9,15,1^1^- ’ 

data o,o,o,12,o, ; 
data 

DATA 12,0,0,0,^,0 
nATA 1,0,0,0,3,1 
REM OBJECT DATA FOLLOWS 

nftTA "DAGGGER",i,0 

DATA "BLUE ROSE",15,0 
DATA "GLASSES",16,0 
DATA "BLOATER",12,0 
DATA "ROLLMOP",3,0 

REM monster data 

DATA "HEDGEMITE",16,0 
DATA "PARSLEYH0G",14,0 

data "POND PUP AS",13,0 
DATA "CROAKUS",7,0 
DATA "MCCRAEY",2,0 

PRINT "You are next to the Fountain 

1185 PRINT '"There is an exits East and 
thereare stairs going down to the Sou 
th. " 

1190 RETURN 

1195 PRINT "This is the Rockery." 

1200 PRINT '"There are exits North, East 
, West and South. Beware do not go 
North unless you have the rose or the 
dear in-law will capture you." 

1205 RETURN 

1210 PRINT "This is the patio." 

1215 PRINT '"There is a sundial in the m 
iddleof the patio and there is one exi 
t, West." 

1220 RETURN 

1330 PRINT "You are in the Maze" 
l;vi5 PRINT '"There are exits North, Sout 
E ®st and West." 

1340 RETURN 

1^50 PrJmI " You are on the Lawn." 

■I 0 ^ RINr '"There are exits North, Sout 
"* East and West." 

Io>o5 RETURN 

d." You are next to the Fish F° n 
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1365 
1370 
1375 
1380 
1385 
1390 
ds. " 
1395 
1400 
1405 


PRINT 

RETURN 

PRINT 

PRINT 

RETURN 

PRINT 


'" ThSre is a " exit west .„ 


are ^ the Herb 
There ls one exit, 


Garden." 
East." 


"Vou have reached the R ose Be 


RETURN "' There ^ *" North... 

PRINT "You are in the sunken garden 


1410 PRINT '"There i= , ■ 

p to the North." tairway going u 



1415 RETURN 
1420 PRINT "This is the Outside World." 
1430 IF 0(2,1)=0 THEN GO TO 1470 
• 440 PRINT "Elsie's dad has caught you 
without the Blue Rose. It's fun- 


SC0RE 
(Y/N)g 


escaped 


I**a—gun time for you." 

1450 PRINT "YOU MANAGED TO SCORE 
’ POINTS"s INPUT "Another game? 

? a IF g$="Y" THEN run 

1460 STOP 

147o PRINT '"Well done, you have 
wi ththe Blue Rose. You and Elsie can 
live in peace, that is until the next ti 
fn © she wants a flowerfrom the garden." 

480 BO TO 1450 
I4?o IF Z~3 THEN GO TO 1500 
1495 PRINT "You can't do that!": GO TO 4 
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1500 GO^TO 39j.^ sundial holds an inscrip 

tion " mcct 100: GO TO 40 

1520 PAUSE 10^ then bq tq 15ao 

1560 IF Z(Z ’ 6) 

1570 "LOOK OUT, THERE’S ft ";N*<Z<Z 

1580 PRI NI uu 

,6)> cot nit "IN THIS ROOM!" 

SoS ■"« ■|N*««Z.6)>|- ATTACKS. 

pn n D= 1 TO 100: NEXT p 

IF RND*STRENBTH<20 THEN SO TQ 1.650 
PRINT ’"but you escape his clutches 

1650 PRINT “AND HE HITS! " 

1^70 if R RNd!sTREN 0TH<30 THEN BO TO 1710 
1680 PRINT "Your weakened, but your stil 

\ 6 9 0 a LET e STRENGTH=STRENSTH-1 NT (RND*30) 
1700 RETURN 

1710 PRINT "With one -fell swoop he cleav 
es your skul1" 

1720 PRINT "You are dead." 

1730 GO TO 1450 _ , KI _ 

1740 IF Z (Z,6) =0 THEN PRINT "THERE & NO 
THING HERE TO ";M*: GO TO 40 
1750 LET P*="F": GO TO 390 
1760 LET P$= ,,M 

1770 PRINT "OK": PAUSE 100: CLS 

1780 PRINT "YOU ATTACK THE ";N$ < Z < Z,6)> 

1790 FOR P=1 TO 100: NEXT P 

1800 IF RND>. 6 THEN GO TO 1850 

1810 IF 0 (1,1) =0 THEN GO TO 1850 

1820 PRINT '"But you miss" 

1830 LET STRENGTH-STRENGTH-1 NT (RND*2Q> 
10 

1840 GO TO 40 

1850 PRINT "AND HIT! ! " 

I860 LET SC0RE=SC0RE+5 
1870 FOR p = i T0 100 . NEXT p 

1880 IF 0 (1,1) = 0 AND rnd*STRENGTH>60 f 

N GO TO 1920 

890 PRINT "but he is still standing- 
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\r LET s ™ t h=str E n G th- int (rnd#20) + 

1910 GO TO 40 

1920 PRINT "You have killed th 
,N$<Z(Z,6>> e d the dreaded" 

1930 LET Z ( Z , 6) =0 
1940 LET SC0RE=SCQRE+50 
1950 GO TO 40 

1960 IF 0(3,1)00 THEN PRINT "Ynn K,cr- n 
GLASSES MATE!": GO TO 40 Y ° U NEED 

1970 PRINT "The inscription reads .. 

mer ends when Autumn starts, Twicl a m 

ter is a hole, o n return * qua 

i un return you must 

reverse, Amazing Facts will unfniH » 

1980 PAUSE 500: GO TO 40 Unfold ‘ 

Elsie the Aadvark goes Lunar Surveying by Peter Shaw 

Elsie, your beloved, is out on her adventures aaain h..t tw,* 

moon. It all started when Elsie told the family that she had^mhl ° n J he 


SlIirTfonteshuttle 15 ^ °' BSie " ^ Und6r9r0Und Caverns ,ha lunar «* 


every chl^oth atUreS 'l 13 ' live 0n ,he m00n are a blood >' lot - and ,he V wil1 ,ak « 
every chance they can to get you. 

> there is a system of carverns on the moon in which you can easily get lost. 

10 REN Elsie the Aadvark goes Lunar Su 
rveying 

20 GO SUB 870: REM 1NTIAL 
30 POKE 23658,8: LET SC=0: LET CH=0: L 
ET P$= , »m ! | ct 7 _.cr 

40 PAUSE 50: CLS 
50 GO SUB 1150+ <z*30) 

60 if chOz THEN LET ch=0 
70 GO SUB 760 
80 GO SUB 1560 

90 INPUT "WHAT DO YOU WANT TO DO NOW? 

4 , "> line a* 

lu 0 GO SUB 340 

110 For a==1 tq len m 

120 IF A*CA>=" " THEN LET M*=A*< TO A- 
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. GO TO 150 
130 NEXT A 

140 LE L«!"RTOP" THEN BO TO 1450 
150 IF 2. "FI6HT" OR M*="KILL" OR M«="g 
OR S:-gT?B; THEN bo TO 1740 


L ^o LEN m*<io and m*< 


AND M*»"1 NV 
170 T, , U Tn LEN M*> THEN BO SUB 580 
E iao R iF M*="TAKE" OR M*="GET" THEN bo t 

0 30O ,c MS-“DROP" THEN BO SUB 650 
III ip S-8C0RE" THEN PRINT •'YOUR SCO 

RE ,flF ! W°"STRENSTH" THEN PRINT “YOU H 
Z ‘°„ STRENGTH;" STRENGTH POINTS" 

" . ip m*-"D0WN" THEN LET M*="SOUTH" 

l\i f „*="UP" THEN LET M#-"NORTH" 

III p <M*="NORTH" OR M*="N") AND Z <Z,1 
=0THEN PRINT "YOU CANNOT GO NORTH" 

’± F (M*="NORTH" or m*="N"> AND Z<Z,1 
)<>0 THEN PRINT "OK": LET Z=Z(Z,1>: BO 

T °40°IF <M*="SOUTH" OR M*="S"> AND Z (Z, 2 
v tup|\| PRINT "THERE IS NO EXIT SOUTH 
^0 ?F <N»="SOUTH" OR M*="S", AND Z (Z 2 
)<>0 THEN PRINT "OK": LET Z--Z(Z,^>. GO 
TO 40 

260 IF (MT="EAST" OR MT="E"> AND Z(Z,3) 
=0 THEN PRINT "YOU CAN'T WALK THROUGH W 
ALLS" 

270 IF (MT="EAST" OR Mf= s "E") AND Z(Z,3> 
<>0 THEN PRINT "OK": LET Z=Z(Z,3>: GO I 


0 40 

280 IF <MT="WEST" OR MT="W"> AND Z(Z,4> 
=0 THEN PRINT "I SEE NO EXIT WEST" 

290 IF <MT="WEST" OR MT="W"> AND Z<Z,4) 
<>0 THEN PRINT "OK": LET Z=Z(Z,4>: GO • 
0 40 

310 IF MT="FILL" AND 0<4,i>~0 AND Z*8J 
HEN PRINT "OK": LET 0(4,1) *10: GO TO 40 

315 IF M$="UNLOCK" AND 0<5,2>=1 THEN 
HINT "THE TRAP DOOR IS UNLOCKED. " * 00 

40 

316 IF M$="UNLOCK" AND 0 <5,2) *0 ' AND O^ 1 
,1)=0 AND Z=5 THEN PRINT "OK": LET ° (J ’ 
2 >=1: GO TO 40 
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317 if- n*= MINU L (5 2 )- a t, 

„ T he trap door is already'o p I" en PRI 

TO 40 OPEN.... Gq 

318 IF MT="OFEN" AND Z(5,2)=o 

>=1 THEN PRINT "OK": LET Z ( 5 ‘,? N 0(5 ’ 2 

□ 40 ,0==6: GO t 

320 IF LEN AT>LEN MT THEN LET a* a 
j TO ): GO TO 110 A$=AT(A+ 

330 GO TO 90 
340 FOR A=1 TO LEN AT 
350 IF A$(A)<"0" THEN LET AT(A>=" „ 

360 NEXT A 
370 RETURN 

380 IF 0(1,l>OZ AND 0(2,1)<>Z AND n/- 
l)OZ AND 0(4,1)01 AND 0<3,l)oz THeJ’ 
PRINT "I SEE NOTHING TO TAKE": GO TO 1 
390 LET AT=AT(A+1 TO ) 

400 FOR A=1 TO LEN AT 

410 IF AT(A)=" " THEN LET MT=AT( TO A- 
1): GO TO 440 
420 NEXT A 
430 LET MT=AT 


440 IF" <MT="THE" OR MT="A" OR MT="THAT" 
) AND LEN AT >LEN NT THEN GO TO 390 
450 IF LEN MT<2 THEN PRINT "DO WHAT ?" 
: GO TO 40 

460 IF MT(1 TO 2>="KE" AND 0(1,1)=Z THE 
N PRINT "OK": LET Z(Z,5)=0: LET 0(1,1) = 
0: GO TO 40 

470 IF MT < 1) ="C" AND 0(2,1)=Z THEN PRI 
NT "OK": LET Z(Z,5)=0: LET 0(2,1)=0: GO 
TO 40 


‘tHU IF- U ) 


NT "OK": LET Z(Z,5>=0: LET 0(3,1)=0: GO 
TO 40 

490 IF MT( TO 2) ="81" AND Z(Z,6)=1 THEN 
GO TO 1760 

500 IF (MT ( TO 2>="TA" OR NT ( TO 2>="DR 
"> AND Z (Z , 6) =2 THEN GO TO 1760 
510 IF MT ( TO 2) ="SE" AND Z(Z,6)=3 THEN 
GO TO 1760 „ 

520 IF PT="F" THEN PRINT "FIGHT WHA1 =• 

5 LET PT«"": GO TO 40 „ .. 7 THE 

530 IF MT (1 TO 2>="FU" AND 0<4,1>- 1) = 

N Print "qh:;": LET Z (Z,5)*0: LET 0 
° ! GO TO 40 
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„ TC „*(i TO 2)="KE" AND 0(1 , 1 > = 0 
f% then PRINT "OK"! GO TO 1510 
llo IF W«1)-‘B" « ND 0(3,1) =0 THEN 
^ „nK», 60 TO I960 

=70 ^ET M*=. GO TO 440 

530 FOR A=1 TO 5! IF 0(A,1)=0 THEN 


TO 610 
c;90 NEXT A 

600 PRINT "YOU ARE CARRYING NOTHING 


and 
PR I 


GO 


: R 


o PRINT "YOU ARE CARRYING;" 

620 FOR A-l TO 5= IF 0 (A, 1) =0 THEN PRi 
NT "THE ";0$(A) 

630 NEXT A 
640 RETURN 

650 IF 0 (1 ,1> <>0 AND 0(2,1)< >0 AND 0(3, 
DO0 AND 0(4,1)00 AND 0(5,1)00 THEN 
PRINT "YOU HAVE NOTHING TO DROP": GO TO 
40 

660 LET A$=A$(A+1 TO ) 

670 FOR A=1 TO LEN A* 

680 IF A$ (A) =" " THEN LET ( TO A- 

1): GO TO 710 
690 NEXT A 


700 LET M$=A* 

710 IF M*="THE" OR M$="A" OR M$-"THAT" 
THEN GO TO 660 

720 FOR A-l TO 5: IF mi TO 3>*0$<A, TO 
3) THEN LET 0(A,1)=Z: PRINT "OK": GO T 
0 40 


730 

740 

750 

760 

770 

780 

790 

800 

810 

URN 

820 

830 

840 

) 


NEXT A 

PRINT "DROP WHAT?" 

GO TO 40 

PRINT : IF Z(Z,6)< >0 THEN RETURN 
FOR A=1 TO 5 

IF 0 (A,1> =Z THEN GO TO 820 
NEXT A 

IF Z (Z ,6) < >0 THEN RETURN 

PRINT "I CAN SEE NOTHING HERE": RET 

PRINT "I CAN SEE" 

FOR A=1 TO 5 

IF 0(A,l)=z THEN PRINT "THE 


841 

RINT 


IF A=5 and Z=5 AND Z(5 f 2)«6 THEN F 
he trap door is open": GO TO 


0 

842 IF A=5 AND Z=5 AND o< 5 

PINT " The trap door i s . ’ THEN p 

0 850 3 un I°cked"• Gq £ 

843 IF A=5 AND Z=5 AND 0(5 

PINT " The trap door i s , 0 t HEN r 

850 ^cked": GO T0 

850 NEXT A: PRINT 
«AO RETURN 


860 RETURN 

870 LET STRENGTH-100: LET SCORP r 
Z(9,6): DIM 0(5,2): DIM 0*(5 ’ ° IM 

880 FOR A=1 TO 9 ’ 

890: FOR B=1 TO 6 

900:: READ Z(A,B): NEXT B 

910 NEXT A 

920 FOR A=1 TO 5 

930: READ O-f (A) , 0 (A, 1) Q(a 2) 

940 NEXT A 

950 DIM N*<3,10>! DIM 11(3,2): FDR A-l T 


0 3 

960 READ N*(A) ,M(A,1) ,M(A,2)- NEXT 4 
970 RETURN NtXT A 

980 REM DATA FOLLOWS 
990 DATA 1,1,2,1,0,0 
1000 DATA 3,1,1,1,0,0 
1010 DATA 1,4, 1 , 1 , 1,1 
1020 DATA 1,1,1,5,0,0 
1030 DATA 1,0,0,0,3,0 
1040 DATA 5,7,1,0,4,0 
1050 DATA 6,8,1,1,5,0 
1060 DATA 7,9,0,0,0,0 
1070 DATA 8,0,0,0,0,0 
1080 REM OBJECT DATA FOLLOWS 
1090 DATA "KEY",3,0 
1100 DATA "CHAIN",5,0 
JllO DATA "BOOK",6,0 
U20 DATA "FUEL",3,0 
1130 DATA "TRAP DOOR",5,0 
1140 REM MONSTER DATA 
11°° DATA "BILK",1,0 

1 1 60 r\ATA .•% kJLjin-r-. . It 


_160 DATA "TAMMOTH" 
117° DATA "SELBOUGH 
e? PRINT "You are 
0 Print '"There < 
£^st and West. 1 

12<? 0 return 


unar Cavern." 
ts North, Sout 




_ h ,~p ..This is the Pod Hall." 

J*S PRINT ' "There is an exit North. 

1320 RETURN 
1330 PRINT 

print '"There are u OWn 

the stairs South and Up through the tra 
p door." 


'This is the lower chamber." 
"There are exits East, Down 


1350 RETURN 
1360 PRINT 
1370 PRINT 


'You are in the Lunar Hall." 
rrum "There are stairs going up a 
nd down and there are exits West and 
East. " 

1380 RETURN 

1390 PRINT "You are in the Shuttle 


Cavpr 


1400 PRINT '"The shuttle is South." 

1410 RETURN 

1420 PRINT "This is the Outside World." 
1430 IF 0 (4,1) =10 THEN GO TO 1470 
1440 PRINT "There is no -fuel in the shut 
tie,you'll have to fill her up.": GO TO 
40 

1450 PRINT "YOU MANAGED TO SCORE SCORE 
, "POINTS": INPUT "Another game? (Y/N)"$ g 
$•: IF g*="Y" THEN RUN 
1460 STOP 

1470 PRINT '"Well done, you've escaped t. 
he Lunar surface. I couldn't have do 
ne better myself." 

1480 GO TO 1450 

1570 IF Z (Z ,6) “0 THEM RETURN 
1580 PRINT "LOOK OUT, THERE'S A " ;N$<Z<Z 
, 6 ) ) 

1590 PRINT "IN THIS ROOM!" 

1600 PRINT '"THE " ; N$ < Z (Z , 6) >; "ATTACKS. . 


1610 FOR p=l TO 100: NEXT p 
1620 IF RND*STRENGTH<20 THEN GO TO 1 650 
"hut you escape his clutches 


1640 RETURN 

1650 PRINT " and he HITS'" 
1660 FOR p=1 T0 100 . NEXT p 

itnn ll RND *STRENBTH<30 THEF 
680 RRINT "Vour weakened, t 

1 aliv B .» 


GO TO 
your 


1710 

stil 
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” THEr E'S NO 


1700 RETURN ~ ’^TR-int < Rnd 

1710 PRINT "With one f ell 
es your skull" swoop h e clt? _ x 

1720 PRINT "You are dead " 

1730 GO TO 1450 
1740 IF Z (Z , 6) =0 THEN RRi NT 
THING HERE TO ";M$: BO TO 40 
1750 LET P*="F": GO TO 390 
1760 LET R:f="" 

1770 PRINT "OK": PAUSE 100- m q 
1780 PRINT "YOU ATTACK THENtf7 
1790 FOR P=1 TO 100: NEXT P <Z ’ 6)) 

1800 IF RND>.6 THEN GO TO 1850 
1810 IF 0(1,1) = 0 THEN GO TO 1 850 
1820 PRINT '"But you miss " 

1830 LET STRENGTH=STRENGTH-INT <RND*20> + 

1840 GO TO 40 

1850 PRINT "AND HIT!'" 

1860 LET SC0R'E=SC0RE+5 

1870 FOR p=l TO 100: NEXT p 

1880 IF 0(1,1) =0 AND RND*STRENGTH>60 THE 

N GO TO 1920 

1890 PRINT "but he is still standing" 
1900 LET STREN6TH=STRENGTH-INT <RND*20> + 
10 


1910 GO TO 40 

19^0 F'F,'INT "You have killed the dreaded 
»N$(Z(Z,6)) 

1930 LET Z(Z,6)=0 
1940 LET SC0RE=SC0RE+50 
1950 GO TO 40 

2000 REM ************************* 


Ulax ^ Carries Mortleman 

I^nsyNanian ? V ‘!computerised version of the vampire ‘Draeula'^ He iivesm^he 
ids? an laboratories, surrounded by his batty type friends, 


int ° the rolinri^ 1 ® ~ you must sneak into the 

s Central Processing Unit. That shoul 


a stake deep 


' ar e ii 


,nst ruction S contained within the program. 
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Program Notes 



This program is a total graphics adventure as described in Chapter Eight. 

10 REM ********************* 

20 REM * * 

30 REM * DR A C U LAX * 

40 REM * * 

50 REM * © James Martleman * 

60 REM * * 

70 REM ********************* 


80 CLEAR 

90 LET lrT="NOBODY YET" s LET h~0 
100 BORDER 1: PAPER 5; INK 1: BRIGHT 0: 
INVERSE 0: OVER 0: FLASH 0: CLS s PRINT 
AT 11,10; FLASH 1;"PLEASE WAIT"s GO SUB 
2560 
110 REM 

If any line contains user.de 

■fined graphics, there is a REM 

after that line indicating 


which graphic letters 
are used. 

120 LET drac=l: LET sleep-0: LET sc=0: 
LET ns=0: LET a#”"nothing": LET q#”"' 
130 BORDER 5: PAPER 2: INK 7: CLS 
140 POKE 23609,35 
150 RANDOMIZE 
160 PRINT , , . . u 

A c U L A 


P 


■•"•"■-Mi*!.": PRINT , ,TAB 8; "D R - 
x " » ’»" Author:J.R. Nor11eman ©1983 

PINT '* ^ „ti m. »n 'i" 1 

ti wi*it*»tii«»iiiiaitiiiiauiiiu«.Bu a. mi wnaitaitsitaihw 1,111 , 

REM 32 graphics shift 3 ' .. 

' 1 [' q .. graphics INV sh i f t 5 

1 7 0 GO SUB 2760 

180 print ,,,,,,, "Do you want to ® eC 

instructions?" . 

190 PRINT INK 7 5 PAPER 0; FLASH 1S AT 
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200 Lt. i a4 


00 


AMD a*<>“Y” AND'^o^^ANb M<> „ 
THEN SO TO 2 


'JVJ 

210 BEEP .5,10 
220 IF aT="y" OR aT=:”Y" THFw „ 

70 ™ EN G 0 SUB 21 

230 CLS 

240 GO SUB 1730 
250 POKE 23658,8 

260 PRINT INK 7; "WHO DARES TO entfp n* 
ACULAX'S LABORATORY ?" : INPIi ; DR 

OUR NAME:"; LINE rT INPUT Y 

270 POKE 23658,0 
280 LET sleep=l 

290 BORDER Is PAPER 5: INK i, CLS ■ per 
NT AT 11,10; FLASH 1; "PLEASE WAIT"! * 

300 DIM 1 T<20,32) 

•^•10 REM walls of laboratory 
are GRAPHICS Us 

0^0 LET 1 $ (1 > - "uuuuuuuuuuuuuuuuuuuuuuuu 

uuuuuuuu" 

330 LET 1*<2>—u u u u 

u " 

340 LET 1 T (3 > = "u u u 

u" 

350 LET 1 T< 4 > =1 T(3> 

-'60 LET 1T (5 > = " u u u uu 

uuu u" 

37© LET 1T<6)="u 
u u" 

380 LET IT(7>="u 
u u" 

•390 LET If (8) = "u 
uu u" 

400 LET IT(9)—"u 
u u" 

410 LET 1T(10)="u 
u u " 

420 LET 1T(11)="uuuu u u 

u u" 

4S ® LET 1 T (12) =-" u u u uu 
u u" 

40 LET 1T(13) ; ="U uu u 
£ u" 

4b0 LET 1T(14 > ="u 


UUUUUUUUUU 


u UUUU UU 


uu 
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460 LET 1*<15>="U u uuuuuuuu u 

u" 

A 7 I 71 lET lf( 16 ) K "U u u 

jlmpq u": REM to P half of coff * nss 9raph 
ics J,L,M,P & Q 

480 L-ET 1*<17>="u u u 

knars u" : REM lower half of C o 

^graphics K,N,0,R S, S 

49(? LET l$(18)*"u u U 


500 LET 
510 LET 


Ll" 

1 f- (19) = " u u u 

u" 

1 if ( 20 ) = " uuuuuuuuuuuuuuuuuuuuuuu 


uuuuuuuuu" 

520 DIM b(5,2) 

530 DATA 25,30,5,3+<RND>.7) ,2,2,1,3,2 
540 RESTORE 530 

550 LET u$="fegbcdthi " : REM 

graphics FEGBCDTH & I 
560 FOR .) = 1 TO 9 


570 READ nnn 


580 FOR n=l TO nnn 

590 LET xxx-INT (RND*32>+1: LET yyy-INT 
(RND*20)+1 

600 IF xxx>10 AND xxx<22 AND yyy> 16 THE 
N GO TO 590 

610 IF j«7 AND ((xxx >15) OR (xxx >8 AND 
yyy>4) OR (xxx<8 AND yyy<15>> THEN GO T 
0 590 


620 IF 1 t (yyy,xxx) < >" " THEN GO TO 590 
630 LET I $ (yyy ,> t= U jp ( j ) 

640 IF j=3 THEN LET b(n,l)~-yyys IF j-3 
1 HEN LET b < n,2)=x x x 
650 NEXT n: NEXT j 

660 LET y=19: LET x = 15s LET lf(y,x> s " a " 
: REM graphics A 
670 BORDER 1 : PAPER 7: CLS 
680 PRINT AT 0 , 0 ; ink 15 "SCORE 8 *” ; sc; " 

: TAB 25; "NO 1 SE= " ; ns; PAPER 1 5 " 

REM‘32 spaces 

NEXT n WK 2! F0R n:=1 10 20 * PRINT l*<n>« 

AT 0 LJ r T P ^ T BRIGHT 1? PAPER 7s INK 15 
710 IP _" 5 , t PAPER 1;" "5 LINE q* 

7 20 T p quit " then GO TO 120 
h LEN q*<4 THEN GO TO 700 
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740 IF LEM q *<6 rHEM° eo'rnL, G ° T ° 790 
750 IF q*(l TO 4 )=».. „ T0 700 va 

90 5aVe ' T HEN G0 tq 

760 IF q*<l TO 5)=" see T , 

2320 k THE h GO SUB 

770 IF q$~"see map" THEN An m 
780 GO TO 700 GO TO 670 

790 IF q*(4><>"n" AND qt<4><>^ A 
(4) < > e AND qr(4)<>" w .. q T HEN" rn'S ND ^ 
800 LET x 1 =x: LET yi= v . , „ b0 T ° 700 
ET z $=*1 $ (y-1 , x ) Y ‘ “ ET q$==c l* < 4 >: L 

810 LET y=y-(q$*» n .. AND l* (v _ t „ 
(q$="s" AND l$(y+l,x)=" <•). y *> + 

" w ” AND 1 t (y , x -} ) = » »>+,„*' „ „ 1 x ** ~ <q*= 
x + l)».. >+(q *= e “ AND 

820 IF q$= ,, n " AND z*="E" OR nc 

them eo X 0r 2 

jflf l F xlwx OR ylOy THEN LET 

. L pl REM graphics A 

Eo0 LEI xl=xl+(q$=v , )-(q$=.' W "). LET yl 

_860 IF f*=”b" OR f*="t" OR f$="c" OR ft 
,- r ° R 0R T$-."i" THEN GO SUB 10 

/ f s REM graphics B,T,C,D,H & I respectiv 

el y 

9 70 IF f$="e" THEN GO SUB 2000: REM qr 
aphics E 

980 IF f $~"f» THEN GO SUB 1300: REM qr 
aphics F 

990 if drac* 1 AND Cf:$=".i" OR OR 

OR f#= ,, p" OR f*="q" OR F$="k 11 OR 
QR QR 0R f$="s") TH 

p N GO SUB 1180: REM graphics J,L,M,P,Q, 

" ’ M ■> 9, R & 0 respectively 

IF f *.-=••*" OR f $="f" THEN LET l*<y. 
x )==.’ s LET ltiyl ,xl)= ,, a": LET y-yl* LET 
^-x 1 s CL.S ; REM graphics E,F & A 
GO SUB 940 

^920 IF 0R f THEN 60 TO 6S0 

' RE>1 graphics A,U 

!]?? BO TO 670 

FOR m=1 T0 5 
IF b (m, 1) =0 THEN NEXT m 
60 ip m>5 THEM RETURN 


then 
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P7P1 IF b(m,l)=® AND m*5 THEN RETURN 
lm LET y2-b<m,l)» LET x2=b<m,2> 

<590 LET b(m,i>==b(m,l) + (y>b(m,l) AND 1* ( 
v 2 +i,x 2 )=" " 0R 1 T < y 2+1 , x 2) - " a " ) - (y < b < m, 

1 ) AND l$<y2-~l ,x2)=" " OR 1 *• (y2-i ,x2> *» a 

"): REM graphics A 
i 000 LET y3=b (m, 1) : LET x 3=b (m, 2) 

1010 LET b <m, 2 > =b (m,2> + <x >b (<r.,2) AND l$( 
y3,x3+l) " OR I$<y3,x3+l>="a" >-<x<b<m, 

2) AND I$(y3,x3-1>-" " OR 1 *• <y3, x3-l) *» a 
"): REM graphics A 

1020 LET 1 $ (y2, x 2)“" " 

1030 IF 1$ (b(m,1),b(m,2>)-"a" THEN GO T 
0 1400: REM graphics A 

1040 LET 1 * < b (m, 1) , b < m, 2 > ) * " g " s REM gr ap 


1050 NEXT m 
1060 RETURN 

1070 BORDER 7: PAPER 7: INK Is CLS 



1080 LET j*« ("laser" AND f *»"b " ) + ( " 
AND f *="t" ) + ( "glove" AND f ■$-- "c" ) + 
nk " AND f*~"d">+< "torch" AND 
ey " AND f $■= - i ") : REM gr aph i cs B, T , C 
* 1 respectively 

1090 print " You are carr yi ng »,<*a 
7"nothi ng " ) • 0 *; " . " 

1100 IF o** H nothing" THEN PRINT , , 
ou ^ant a 11 ; j$; «? ( y/n ) ■■ 

uni 0 IF o$<>"nothing" THEN PRINT , 
X ■ Want to drop you.r " ; o$; " , " , "and 
a ,, SJ*5"?<y/n>» 

n „\^ T V; f~INKEY$: if v$<>"y" AND 
GC) TO 1120 

IF v$.«yH THEN LET l$(yl,xi> s 


stake 
< "pi a 
) + ( " k 
,D,H 

" AND 

"Do y 

, "Do 
pic k 

y;£ < >' 
<" " 
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AND o$= "nothi ng ") + (•• b » 
«t M AND o$-"stake")+(« 


-/ r V Q.. 

't“ A® o»=" 5 t a k e - )t( . c ,™ *’ 

-(“cl" AMD o*="pl ank .. ) + ( „ °*=''9lov e », 

) + (“i" AMD a$=="k e y") . R£M °*="tor C h 
I respectively 9 ra Phics B,r, 


- f -r \ ... . .. 

C„D,M I resfjt'Luveiy 

IF THEN LET i«, 

u <vi,xi 


1140 
> 


1150 IF v*=”y" THEN LET Q $= i* 

1160 CLS 
1170. RETURN 
1180 CLS 

1190 IF a-S-" stake" THEM GO TO n 1cl 
,200 PRINT "You can only open thi c otfin 
when you are carrying the „ 

AUSE 250: CL.S : RETURN 5t *ke.": P 

1210 GO SUB 1730 


1220 PRINT AT 0,0; INK 6; "You open the 1 

• ld |1 °* tl J e cofflr ' and see sleepy dracull 
x: ; AT 21,0s GO SUB 2930 * 

1230 PRINT 

1240 PRINT AT 18,0; "You drive the stake 
into his Main Processing Unit and put 
*2 end to his evil »robotic life.": PAUS 
b o00: GO SUB 2850: PAUSE 100 

1 c: ; iTi cr o r-. ^ _ 


1250 FOR n-1 TO 25: FOR g=0 TO 7: BORDER 


g: NEXT gs NEXT n 
1260 BORDER 7: PAPER 7: INK Is CLS 
1270 PRINT AT 7,10; FLASH 1; PAPER 6; IN 
K 2;"BONUS 2000" 

1280 PRINT AT 12,0;" Now you must escape 
•from the laboratory." 

LET sc=sc+2000: LET 1*(1,3 TO 6)="E 

Xr T" : LET drac-0: PAUSE 150: CLS : RETUR 
N 


1300 BORDER 6: PAPER 2: INK 7: CLS 
13.10 Print AT 4,7; INK 6; FLASH 1;"ELECT 
W'lED COBWEB": GO SUB 2970: REM ELECTR 
If-IED COBWEB' is written in INV/NORMAL 1 
6 m ->r' r S a 1 t er n a t e 1 y. . . i e. . • 1E ’ 

WORM L,INV E,NORM C (etc) 

;;‘20 IF 0 *= "glove" THEM GO TO 1350 

> '^ ^INT You attempted tinj* 


__" THEM GU IU 

T , , » You attempted On 

remove an electrified CQ ^ een 


remove an electri + i<= fU '-~ beeen 
«... r ° m your path. Your skin has d by 

?® Ve ^ly burnt and elect 

U,G high intensity of the eie 
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shock.Transylvania 

rl laboratory echoes.with your cries 

-£ t err or and pain- 

1340 PAUSE 1200: GO TO 1520 

1350 PAUSE 25: PRINT ,,,,,,TAU 2;“By usi 

n n your glove,you have successfully r 

ernoved an ^ electrified cobweb fro 

m your path-" 

1360 GO SUB 2890 

1370 LET sc-sc+75: IF RND>.6 THEN LET n 


s=ns+T 

1380 IF drac=l AND ns>3 THEN GO TO 1690 
1390 PAUSE 600: RETURN 
1400 GO SUB 1890 

1410 PRINT ,, INK 6; "You have been attac 
ked by a Robotic Bat...": PAUSE 200: 
GO SUB 2800 
1420 PAUSE 100 

1430 IF o$="laser" THEN 60 TO 1460 
1440 PRINT AT 18,0; INK 2; "It has sucked 
out all your bloodand has left your shr¬ 
ivelled up body to FLASH 1;"R0T"; FLA 
SH 0;" ." 

1450 PAUSE 400; GO TO 1520 

1460 PRINT AT 18,0; INK 2; "but you have 

killed it wi th your 1 aser . " 

1470 GO SUB 2890 

1480 LET 1 $ (b < m, 1) , b (m, 2) > * 1 " a " : REM gr ap 
hies A 


1490 PAUSE 300: LET b(m,l)=0: LET sc^ 
100: IF RND>. 5 THEN LET ns=ns+l 
1500 IF drac-1 AND ns>3 THEN GO TO 1^ 
1510 GO TO 670 

1520 BORDER 5: PAPER 5: INK Is CLS 
1530 PRINT PAPER 2; INK 7; FLASH l? Al 
; ^2-LEN r$ > /2 5 " BAD LUCK " : r$ 
anS r F ° R nssl T0 200: BORDER 1: BORDER 
BORDER 3: BORDER 4: BORDER 5: NEXT n 
’ 1 .. RI ^T ,,,,,, "You have been a v * c 
™ Perils that infest Transylv« 
« Laboratory." 

1560 GO SUB 2720 

1580 if IWT ’ ’ ’ ’ TA » 7;"Your score="5 sC 
1590 ip ! C : : t ™EN LET h*-r* 

160« PR I mt 1 THEN LET h~sc 

e FINT ,,TAB 7; "High score-" ^ 
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1 C? 1 ' 1 \ J. l f l 


1620 PRINT AT 2T,0rp fl pl h * )/ ?i"By " ih « 
... .- PER 3: INK 7; 


•7 _ 

tr ».ft ASH *JAT 4 


H 15 •*« PRESS ANY KEY TO Pi 2 
1630 PAUSE 0: GO TO po AY AGAj N 
1640 BORDER 3: PAPER 3: INK 7 „ 

1650 PRINT PAPER 2; INK - 7 1 CLS 
,(20—LEN r$>/ 2 ;"WELL DONE ». r * 

1660 FOR n=l TO 200; BORDER^ r 
BORDER 4: BORDER 5- NEVT ’ l! B0RDER 2: 
1670 PRINT ; ou hav ^ H 

lax and escaped from his 22 * Dracu 
d laboratory. " error fin e 

1680 GO SUB 2860: GO TO 1570 

1690 LET sJ. eep= 0 : GO SUB 1730 

17B0 PRINT "You have woken sleepy Dracul 

- 0 ,S eCaUSe YOU were to ° noisy. ■■ GO SUB 
2930: PRINT AT 21,B UB 

1710 PRINT "He has driven his hydraulic 
fangs into your neck and has sent 
an unbearable electric charge into 
your bloodstream. He laughs as you die 
i n pain" 

1/20 PAUSE 750; GO TO 1520 
1/30 BORDER 2: INK 7: PAPER 2: CLS 
l 740 p LOT 118,134: DRAW 19,0: DRAW 14,-6 
s DRAW 11,-16: DRAW -25,10: DRAW -9,-19: 
PLOT 127,103: DRAW -9,19: DRAW -25,-10: 
DRAW 11,16: DRAW 14,6 
1750 PLOT 93,111: DRAW 0,-14: PLOT 162,1 
11: DRAW 0,-14: DRAW 3,0: DRAW 3,-3: DRA 
2 ®~ 12: DRAW -3,-3: DRAW -3,0: DRAW 0,- 
DR AW -3,-3: DRAW 0,-6: DRAW -3,-3: DR 
AW 0 ,- 5 . draw -3,-3: DRAW 0,-11 
1/60 Plot 152,46: DRAW -3,-3: DRAW 0,-3: 
DRAW -7,-7: DRAW 0,-5: DRAW - 6 ,- 6 : DRAW 
17,08 DR AW - 6 , 6 ; DRAW 0,5: DRAW -7,7: 

0,3, DRAW _3. 3 

1/70 p L o t 102,43: DRAW 0,11: DRAW -6,3: 

4,AW 0,5- DRAW _ 3 , 3 . DRAW 0,6: DRAW 
* DRAW 0 , 5 ; DRAW -3,0: DRAW -3,3: DRAW 0 
] i * * D RAW 3,3: DRAW 3,0 nrv .,. _ 

h 80 RL.OJ 86,90: DRAW -26,-26; DM" ^ 

PLOT 169,90: DRAW 26,-26: DRAW -33, 

Pl'n? PL0T 72,39: DRAW -2,0: ^^2’PLOT 
L0T 193,38. DRAW 2,0: DRAW 0,-^* 
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, 9 93 s DRAW -10,0* DRAW 0,-22: PLOT i 85 
97 ! draw 10,0: DRAW 0, 22: PLOT 58, 15 . ^ 
RAW -6,0s DRAW 0,-14: PLOT 197,15: DRAW 
6,0: DRAW PL0T 0 ’ 0! DRAW 255,0 

1300 PLOT 101,66: DRAW 4,-9: PLOT 154,66 
• DRAW -4,-9: PLOT 103,-62: DRAW 49, 0 S p L 
OT 106,56: DRAW 8,0: PLOT 120,56: DRAW 1 
5,0; PLOT 141,56: DRAW 8,0: PLOT 115,62: 
DRAW 0,-23: DRAW 2,-2: DRAW 2,2: DRAW 0 
,23: PLOT 136,62: DRAW 0,-23: DRAW 2,-2: 
DRAW 2,2: DRAW 0,23 

1810 PLOT 107,56: DRAW 0,6: DRAW 4,0: DR 
AW 0,-6: DRAW 4,0: DRAW 0,6: DRAW 4,0: D 
RAW 0,-6: DRAW 4,0: DRAW 0,6: DRAW 3,0; 
DRAW 0,-6: DRAW 3,0: DRAW 0,6: DRAW 3,0; 
DRAW 0,-6: DRAW 4,0: DRAW 0,6: DRAW 4,0 
: DRAW 0,-6: DRAW 4,0: DRAW 0,6: DRAW 4 , 
0: DRAW 0,-6 

1820 PLOT 100,106: DRAW 23,-9: PLOT 155, 

106: DRAW -23,-9: PLOT 127,87: DRAW -7,- 

16: DRAW 15,0: DRAW -7,16 

1830 IF sleeps© THEN GO TO I860 

1840 PLOT 107,91: DRAW 11,0: PLOT 137,91 

: DRAW 11,0 

1850 RETURN 

i860 PLOT 107,91: DRAW 3,3: DRAW 5,0: DR 
AW 3,-3: DRAW -3,-3: DRAW -5,0: DRAW -3, 
3: PLOT 111,91: DRAW 3,0: PLOT 112,92: P 
LOT 113,92: PLOT 112,90: PLOT 113,90 
1870 PLOT 137,91: DRAW 3,3: DRAW 5,0: DR 
AW 3,-3: DRAW -3,-3: DRAW -5,0: DRAW -3, 
~'l PL0T 1 41,91: DRAW 3,0: PLOT 142,92: P 

i~aLJr 43,92: PL0T 142,90: PLOT 143,90 
1880 RETURN 

pPn? ER 0: PAPER 0: INK CLS 
DRfiu a I 28 ’ 79: DRAW 28,28: DRAW 10,0* 

0- nBAi’i't’ DRAW 19 >0: DRAW 4,-4: DRAW 7, 
nRAn’» 6! DRAW 4 ’ 0: DRAW 0,4: DRAW 1 
7 0. npA,, 0 ’ -41 DRAW 4,0: DRAW 6,6: DRAW 

“ le'o draw’"; DRAW 19 ’ 0: draw 6 ’ 6! 

,-St 


draw -2,-2: DRAW 5,0 = 


DR 
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AW -2,2: DRAW 0, ls DPft 
DRAW 0,4: DRAW -2,0. n R 2’i ! <*«W -j „ 

, 1 - DRAW -1,1, DR ft W D ™ W 0,-3. DR ”’ 0 ; 

w 0,-3: DRAW -1 ,“1: DRAW* DRAW ~ 7 ^ ml 
1930 DRAW -2,0: DRAW 0,j 

RAW 0,-1: DRAW 2,-2: DRAW ° RAW '1,-1: n 
: DRAW 0,1: DRAW 1 „ i . npA,,"™’ 0 *' DRAW 2 o 
0: DRAW 0,6 " RW 0 >4: DRAW -J 

1940 DRAW -14,0: DRAW o ~ 

RAW -3,-3: DRAW -3,3: DPA^ ~ 8 ’ 0: D 

a .-4* npahi _./i /i- lHW "10,0: DRAW 


,0: DRAW 0,3: DRAW I 8 0 . dr1^ 3! DRAW 4 

w 2 2?0, D r w v; draw =•* 

T».. *£, 

0,0: PLOT 133,88: DRAW 1,0 
‘?- PL ? T 124,83: DRAW 0,-5: DRAW 1 . 0 : D 
pi DRAW ®’ 8: DRAW 1,0* DRAW 0.-5: 

p, lo 3 ’ Q 3: DRAW 0,-5: DRAW 1,0: DRAW 

iQQn- DRAW 0,8: DRAW if0* DRAW 0,-5 
•■ •80 PLOT 124,83: DRAW 11,0: PLOT 123,82 
DRAW 13,0 
1990 RETURN 

2000 BORDER 4: INK 3: PAPER 7: CLS 
2010 PRINT "Oh dear,you have trodden on 
c! coffin which is really a bott 

°£i ess pit -"** G0 SUB 2810 

•t, ® PLOT 75,103: DRAW 20,0: PLOT 182,10 
DRAW -20,0: PLOT 95,103: DRAW 0,-80: 

■LOT 94,103: DRAW 0,-80: PRINT AT 18,12? 
u Nk - 2: FLASH 1; " INFINITY": PLOT 161,1 ®■> 

* DRAW 0,-80: PLOT 162,103: DRAW 0,-80: 

!I \2l UT AT 8 ,10; INK 2; "a": REM graphics A 

IF o*s S ,, piank n THEN GO TO 2080 
•*040 PAUSE for R=1 Tp g. PRINT AT B 

f V ?+n .. INK 2; "a": PAUSE 5. NEXT n> RE 

....^gcaphi cs a 

20aS LET ***" A A R G " INK 1 

60 F*0R n^Q 7Q j6; PRINT AT n,l-u 


83 








«f$ (n--7> $ AT n+1,15; INK2; H a"s BEEP 

n: NEXT ns REM graphics A 

2070 PRINT AT 17,15; INK 15 "H": PAUSE 20 

0 : GO TO 1520 

2080 PAUSE 100s INK 2s PRINT AT 4,0; "But 
luckily you have a plank!" 

2090 PLOT 96,103s DRAW 64,0s PLOT 96,101 
: DRAW 64,0 
2100 PAUSE 100 

2110 FOR n=9 TO 20: PRINT AT 8 ,n;" a"s P 
AUSE 5s NEXT ns REM graphics A 
2120 GO SUB 2900 

2130 PAUSE 50s PRINT AT 7,23; INK 5;"Hoo 
r ay ! " s FOR n= 1 TO 15 s PR I NT AT 8,21;" a " s 
BEEP .2,n: PRINT AT 8 ,21;" " ; AT 7,21;"a 
PAUSE 3: PRINT AT 7,21;" "s NEXT ns P 
PINT AT 8,21;"a"s REM graphics A 
2140 LET SC--SC+ 100s IF RND>.5 THEM LET 
ns-ns+i 


2150 IF dr ac~'i AND ns>3 THEN GO TO 169© 
2160 PAUSE 100 : RETURN 
2170 BORDER 7s PAPER 7: INK 3s CLS 
2180 PRINT , , INK Is" INS T R U C T I 
0 N S 1 " 

2190 PRINT ,,,,,, "The object of the game 
is t.o be able to sneak into Transylvani 
a Laboratory and kill 'Draculax'-arobot 
version o-f '-Dracula '-by plunging a sta 

ke into his Main Processing Unit." 

PRINT ,,"You start at the entrance 
of thelaboratory and are provided witha 
map.There are eight commands which can 
^ e K, ent J red when the computer asks 'Wha 
(these are printed later)." 

" 210 FRINT AT 21,2; FLASH 1; INK 2;"*F re 
ss any key to continue*": PAUSE 0s BEEP 
• ->,10 

2 ? 2 ? ? L !5 ' PRINT -< INK 11 " I N S T R u 

2230 PRINx 11t . r nom 

s ■ . n n », "There are various ru« 

th ‘* 1 aboratory,and in the rooms 

* ^ traps (etc). ° 

2240 PRim t „r are "S INK 2 ; "RED" . . 

1 have L l ? errin gs. . .obviously yo*-< 1 

flMd out which they are!" 
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22Difl fKiNi , , You can onl 
ect at a time... so vnil y Carr y Dne 
rrect ob jects at the correct ?*** «»*o 
ck up an Object,you ,u st ' Pi 

d answer a yes/no quest? on it an 
2260 PRINT AT 21,2 S FLA^H - „ 

:;,?s v y D continue *"- p wsE m s B ^ e 

2270 CLS s PRINT ,, INK 1 . „ T . 

C T I 0 N S 3" ' ' •' 1 N S T R u 

2280 REM in next line INV 
letters ares- 

0 in c 2 nd 

Controlled', 
the Fs in 'force' 
and 'for',and the 
'in' in 'input'. 

ou 9 d,- PR T ’,’" YDU mLlst careful that y 

ulri T e to ° much n °i se .or you CO 

uld wake sleepy Draculax,who is havinq 
his power pack recharched in his 

1 r ' Controlled force for power 

input -because if you do,he will dr 
ie his hydraulic fangs into your neck. 


-•. ..-00 PRINT , , "The game has the following 
... f ea t ures: " : PR I NT , , ” 1) SA VE GAME ": 
INf "2) SCORE + player's name": PRINT 
*>HIGH SCORE ■+■ player's name": PRINT "4 
" l " 'your position'" 

--■^10 PRINT AT 21,2; FLASH 1; INK 2; "*Pre 
® an Y key to continue*": PAUSE 0: BEEP 
“ b , 10 

2320 ink 2: PAPER 7: BORDER 7: CLS 

print , , , , "Here is the key to the m 

ap. •• 


,. r n j. N | 

KNORs 

2360 PRI NT 
- 0/0 PR; IN T 

A~‘ 80 print 

- ; o90 PR X NT 

^00 print 

-4l 0 prjnt 
PRINT 


AT 6 , 0 ; ".jlmpq": REM graphics 
AT 7 , 0 ; 11 knars"; : REM graphics 

" Draculax's Coffin" 

, , "a you";: REM graphics" 

,"b laser";: REM graphic sj 
;,,"c glove"; • REM g ra C 
,"h torch";: REM graphics 
REM graphics 

REM graphics t 


,,,"i key";! 

"e coffin"?! 
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w ro 3T ro 


;0 PRINT , ,,"Q robotic bat ;: REM grap 

440 PRINT ?"d p1 ank";s REM graphics D 
450 PRINT ,,?"* electrified cobweb": re 

M graphics F 

2460 PRINT , ,"t stake": REM graphics T 
2470 PRINT AT 21,2; FLASH 1; INK 3; "*P r © 
5S any key to continue*": PAUSE 0 : BEEP 
.5,10 

2400 IF q$="see key" THEN CLS : IF q$=" 
see key" THEM RETURN 
2490 INK 3: CLS 

2500 PRINT , , , , " Her e is the list of comm 
andss " 


2510 PRINT , ,, , " 1 > go north" , "2) go sout 
h",,,"3) go east", "4) go west",,, "5) see 
key"," 6 ) see map",,, "7} save game", " 8 ) 
qui t" 

2520 PRINT , , "The command 'quit' will er¬ 
ase the player's name and score and re 
start the program." 

2530 PRINT ,, INK 1; INVERSE 1 ; "commands 
must be entered in"; AT 18,0; INVERSE 1; 
"small let t er s NOT c ap i t a 1 s. " 

2540 PRINT AT 21,2; FLASH 1 ; INK 2; "*Pre 
ss any key to continue*": PAUSE 0 s BEEP 
.5,10 


2550 RETURN 

2560 DAT A BIN 10011001,BIN 10011001, B IT 
0001 1000, BIN 00011000, BIN 
0100100,00100100,eiN 01100110,0,0?£ 
A B I N 01101000 ? BIN 01100000, BIN 011 
T?, 0 ®:®? 0 ’ BIN 10101010, BIN 10101010,254, 

IN I! 1 ® 1 ,BIW 01111111, BIN 00111000* 
1 N 00111000 

N 5 bSoi??I2* 1106 » 36 * 1 1 06,86,106,86,106,86 , E 

01 101 001 1U00,BIN 01100110? BI 

00iiiiii 00100100 ?BIN 00111100, 

101010? 0 pT m N 00011000 »BIN 10000001 , BIN 
101010 00101010 ?BIN 01010100,bin c 

00001°0 0 N 01010100 ?B in 10101010, BIN IS 

10011001 1 M N niS 001 1000 ’ B1N 01 1 1 1 1 10 ’ B1 r ' 

2580 1 DAT t, 00100100 ? 0,0 

,24,24 24 n’S IN ®® 1 H100,BIN 0011H 00 ’" 

1 ?b i n i0ij2;S;®; B1N 11100 00 ®?bin i 0111J 

101 ? BIN 11100101 ,0,0,255? BH' 
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8,128,128,128,128,128 BIN t,^ 28 ’ 12 8 ,12 

j. 100000,255 ’ ^ 1100 0000,Bim j 

2590 DATA 255,0,0,0, bin 000 00111 

01111 ,bin 000 H 000 . BIN 000 

00000 111, 0 , 0 ,BIN 111 00000 . B J “ 0 ®; ^- BIN 
IN 00011000,BIN 00001100,BIN 00 
M 00110000,BIN 00111111.Bi N 0 ° M* 

,0,255,BIN 00001 100 ,Bif, 00001100 BIN*?!? 
11100,BIN 11111100, 0 , b ,bi n 0000 “;® 

2600 DATA 255 , 255 , 0 , 0 , 0 , 0 , 0 , 0,233 iUi, 
5?3, i , 1 ,1 ,1,0,0,0,0, 0 , 0 ,255,255 TT 

TT OCit- OKrer ncic; ’ ’ 1 » 1 ? 1 ? 

n iiLUw 9 - 4 . ’Jw 9 4^vJ v~.* 


2610 DATA BIN 00100000,BIN 01110000 BIN 
11111000,BIN 01111100,BIN 00111110,BIN 0 
0011111, BIN 00001 111,BIN 000001H 955 
5,255,255,255,255,255,255 ’ ’ 

2620 REM 


the string 'u$' contai 

ns 'GRAPHICS' letters from A 

-U. 

2630 RESTORE 256© 

2640 LET u:£="abcdef ghi jklmnopqrstu" 

2650 FOR j=l TO 21 
2660 FOR g ~0 TO 7 
2670 READ ch 


2680 POKE USR (u$ (j) > +g, ch 
2690 NEXT g 
2700 NEXT j 
2710 RETURN 

2720 DATA . 8 , -3, . 6 , -3,. 3,-3,1 ,-3,. 3,0, ■ 3 

»“1,.5,-1 , .3,-3, .5,-3,. 3,-4,1,“3 

2730 RESTORE 2720 a 

2/40 FOR n *l TO 11: READ aaa,bbb: BEEE 
®^?bbb: NEXT n 


3,0?.3,-l?- 3 ’ e 

READ aaa.bbb: 


»• 3,2, . 3,0, .3,-1: 

,V 9 » ■ 9,5 , . 3,4 , . 3,2, . 

2770 RESTORE'2760 
-••780 FOR n==l TO 21: 

J a ?bbb: NEXT n 
^790 RETURN Tn FOR n=l 

J 8 ®® F0R , f2=1 T0 4: FOR n: 

0 to 1 s Te p _ 1: beep ■ 007 Upturn 

&Xt g: PAUSE 10: NEXT -ft RE 


BEEP 
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<_n cn w 


010 DATA . 15,-5, .85,-4, . i5, 2,.75,-l,.i 
,-5, .25,-4,. 15,-2, .25,-1 ,. 15,4, .25,3,. i 
,--4,. 25,-1,. 15,3,1.2,2,. 15,1,. 2,-1 , . 15? 
-4, .25,-1,.9,-4 
2820 RESTORE 2810 

9830 FOR n=l TO 19: READ aaa,bbb: BEEP A 


AA,BBB: NEXT n 
2840 RETURN 

2850 DATA . 1, -4,. 1 , -4 , . 3, -4 , . 1,0 , . 1,0,. 
,0,. 1,3, .1,0, .1,3, .1,0,. 13,-4, .05, -4, .0 
,~4,.5,-4 
2860 RESTORE 2850 

2870 FOR n~l TO 14: READ aaa,bbb: BEEP a 
aa,bbb: NEXT n 
2880 RETURN 

2890 DATA . 08,-4,. 08,1,. 08,5 ,. 2,8, . 1,5, . 


2900 RESTORE 2890 
2910 FOR n=l TO 6: READ aaa,bbb: BEEP aa 
a,bbb: NEXT n 
2920 RETURN 


2930 DATA -15,-20,-16,-19 
2940 RESTORE 2930 

2950 FOR n=l TO 4: READ aaa: BEEP 1.5,aa 
a: NEXT n 
2960 RETURN 

2970 FOR n~l TO 10: BEEP .3,8: BEEP .3,5 
: NEXT n 
2980 RETURN 

2990 BORDER 7: PAPER 7: INK 0: CLS 
3000 PRINT AT 10,0; INK 4s "S A V E G A 
ME ROUTINE'* 

3010 INPUT "ENTER FILE NAME: "ssl 
3020 IF s$="" or L.EN st>10 THEN GO TO 3 
010 

f?MM., PRINT * *" To reload, type: LOAD " " " 5 s* 


422? SAVE ®* ! G0 T0 670 

PRINT " Do y° u wish 

■' < 

30BO eq THEM GO TO 100 


antinu 

i T< 
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Ki U1 


y in Funland by Stuart McCrae 



.you 


pereon'who^types it in will know wto^ing on as to if mu' 3 b °° k ' The 

this one then get someone else to do the dirty woric ' y ant,0 P la y 


5 REM © STUART MCCRAE 
10 LET p=0 


20 LET )=0 

30 PAPER 1: INK 6: CLS 
40 PRINT : PRINT 




1-1 8 I I I 8 8 LI 

| l B.J fc,- mJ .. 

60 PRINT : PRINT : PRINT 
70 PRINT " V M 


n r ■ | | 


8 I I 

41* II" 

80 PRINT : PRINT : PRINT 

90 print " r" i i pi i m n r\ 

& 8 8 I 8 ft I I I I 

8 Li I I lill II Is 1 " 

100 PRINT : PRINT 

110 PRINT " PRESS c TO CONTINUE" 

120 BORDER 3: BORDER 4: BORDER 5: BORBE 
R 6: BORDER 7: BORDER 0: BORDER 1: BORDE 
R 2 * BORDER 3: BORDER 4 
130 IF INKEY$="c" THEN GO TO 0150 
140 GO TO 0120 

150 PAPER 1 : INK 7: BORDER Is CLS 

160 print 

170 PRINT "SHODDY IN F U N L 
N D" 

180 print ***************************** 
****-" 


190 

200 

in 

pri t 
ine • > 
the 


PRINT : PRINT idea 

PRINT " You are shoddy and t ^ 
this adventure is to tin gw 

that took Large ears c * e found 
when you are sure Y° u t it t 
"ight person you must v the 

=*.C F’leb, i-f you have pi 
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right character then you will be rew 
arded and everybody will like you (Even 
that bit of stuff from the cake shop!) 

BUT IF YOU FAIL." 

210 PRINT : PRINT : PRINT : PRINT- 

220 PRINT " PRESS ANY KEY TO CONTINUE 

230 PAUSE 0 
240 CLS 

250 PRINT : PRINT 

260 PRINT " You will be dragged backwa 
rds through a hedge and strung up 

by the feet and left to die. (Ever 

ybody hates people who tell fibs!)" 
270 PRINT : PRINT 

280 PRINT " GOOD LUCK SHODDY" 

290 PRINT 

300 PRINT " TIME IS ON YOUR SIDE" 

310 PRINT : PRINT s PRINT ; PRINT : PR I 
NT : PRINT 

320 PRINT " PRESS ANY KEY TO CONTINU 
E" 

330 PAUSE 0 

340 INK 1: PAPER 6: BORDER 6: CLS 
•350 PRINT 

360 PRINT " SUSPECTS" 

370 PRINT 

380 PRINT "These are list of the charac 
tersthat could have done it at that time 
t The thief is one of these characters!. 

390 PRINT "press the appropriate key nu 
mberfor the rundowns or press m to cant 
inue." 

400 PRINT 
410 PRINT " 

420 PRINT " 
ar ! ) " 

430 PRINT 
440 PRINT '• 

450 PRINT 
460 PRINT " 

HOP" 

470 PRINT 
480 PRINT " 

490 PRINT 


1. LARGE EARS" 

(always was a bit of a li 

2. PADDY THE POSTMAN" 

3. CLAIRE WITH THE CAKE S 

4- P.C PLEB" 
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500 PRINT " 5 . BILI v rur 

eor B 0 Ur S" 


520 IF INKEY$= 
530 IF INKEY$== 


THEM 

them 

THEM 

THEM 


Go TO 0760 
CO TQ 0940 
00 TO 110 0 
00 TO 1240 
00 TO 1370 


540 IF INKEY$="4" 

550 IF INKEY$=" 5 " 

560 IF INKEY$="m" THEM 
570 GO TO 0510 

580 PAPER 7: INK 0 - BORDER 7 - n c 
: PRINT : PRINT : pp^j 
LARGE EARS" 


590 PRINT 
600 PRINT 
610 PRINT 
620 PRINT " Large ears is your best fr 
lend (still doesn't stop him from ro 
bbing his own car for the insurance! 
) and didn't seern bothered at losing 

his car!. It. was a bit of a banger a 
nd he was having trouble with it an 
yway." 



er. " 

640 PRINT : PRINT : PRINT „ nhlTTWM F 

( 650 PRINT " PRESS AMY KEY TO CONTI 

660 PAUSE 0 
6 70 CLS 

68 « PRINT : PRINT : PRINT TI(1E » 

6< ?0 PRINT » WHERE HE WAS AT TH 
700 PR i NT : PRINT : PRINT he waS 

710 Pri NT h Lar ge ears says t the 

at Funtown pub at the time ■ d tha t w 
car was taken 10 . 30 pm and bo dy re 

hsn he came out it 9»" e 
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w _ him being there but in that 

""ub what's new!" 

700 PRINT : PRINT 

HI PRINT 11 PRESS ANY KEY TO RETURN" 
740 PAUSE 0 
7 K "i0 GO TO 0340 

760 PAPER 7: INK 0: BORDER 7: CLS 
770 PRINT : PRINT 

780 PRINT " PADDY THE POSTMAN" 

790 PRINT : PRINT 

800 PRINT " Postman Paddy (and his blac 
white dog!) has a few reasons for 
robbing Large Ears car, for one thing i 
t's pretty hard on the old feet delive 
ring all that mail, a quick red pain 

t ..job and who knows! even Large Ear 
s might not be able to recognise i 

t! " 

810 PRINT " (Even if we could hear it a 
mile off!)" 

820 PRINT : PRINT s PRINT 

830 PRINT " PRESS ANY KEY TO CONTINUE 


840 PAUSE 0 
850 CLS 

860 PRINT : PRINT : PRINT : PRINT : PR I 
NT 

870 PRINT " WHERE HE WAS AT THE TIME 
880 PRINT : PRINT 

890 PRINT " Paddy says that he was up 
at Dolly Dimples fixing her fuse bo 
x, she totally denies it of course 

and with her reputation it's 

understandable!" 

900 PRINT : PRINT : PRINT 

910 PRINT « PRESS ANY KEY TO RETURN" 

920 PAUSE 0 

930 GO TO 034(3 

950 PRINT ?! INK BQRDER 7s CLS 


i( 960 print 

970 PRINT 
980 PR x nt 


CLAIRE WITH THE CAKE SHOP 


who liJe! ' Claire is the type of Q irl 
likSS a with a car . even 
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Ter if she h 
s a bit of a 
Large Ears 
y and she 
t to get his 
bit of a crui 
ge to find 
r then it 
990 PRINT " 
the one 
then things 
1000 PRINT » 
1010 PRINT : 
CONTINUE" 

1020 PAUSE 0: 
1030 PRINT : 
1040 PRINT " 




hSS , bee " iBnor?;,' Zr\T, 

"lay have stole the tel 
attention, she 
!h orl you and if ° a 
out Who Stole Large E “ r “"? 
could swing yo U r „ay.!« Ca 
On the other hand if she 
that stole Large Ears ca r 
could get tricky..." 

(Impossible even!!!!')" 
PRINT " PRESS ANY KEY TO 

CLS 

PRINT : PRINT 

WHERE SHE WAS AT THE TIME 


1050 PRINT : PRINT 

1060 PRINT " Claire says she was at home 
that night watching crossroads a b 
it unbelievable in it's self, (I lo 

oked at the popularity ratings 

and nobody watched it. that week!) so f 
or some reason she's been telling fib 
s (GASP!), did she really want the ca 
r, or was it Large Ears or was it you 
she was after.. (Sounds like 

crossroads!)" 

1070 PRINT i PRINT : PRINT 

1080 PRINT " PRESS ANY KEY TO RETURN" 

1090 PAUSE 0: GO TO 0340 

1100 PAPER 7: INK 0: BORDER 7: CLS 

1110 PRINT : PRINT 

1120 PRINT " P.C PLEB" 

1130 PRINT : PRINT a _, ist 

1140 print » Mow P.C Pleb, well we m 
tred very carefully on this 
OUn d as he is the law and can ideal m 


gr 

"can do wha 


t ever he likes! 
o tive f or 


st 


taking 


himself!) and your suppose^ cU lpri 


report to him if you find 
t. . i " 

1150 Print " Could be very 
is are thief better go 
Thority!" 


messy« 


if he 


to higher 





1160 PRINT : PRINT 

1170 PRINT " PRESS ANY KEY TO CONTINUE 


1180 PAUSE 0 

1190 CLS : PRINT : PRINT : PRINT : P Ri NT 
s PRINT : PRINT 

1200 PRINT " WHERE HE WAS AT THE TIME 


1210 PRINT : PRINT 

1220 PRINT " nobody knows, everyone i s 
too scared to ask ! " 

1230 PAUSE 0: GO TO 0340 
1240 PAPER 7s INK 0: BORDER 7s CLS 
1250 PRINT " BILLY THE BUTCHER" 

1260 PRINT s PRINT 

1270 PRINT " Billy is rather large (to 
say the least!) and a bit simple W h 
ich is all the more reason not to mes 
s with him. The only motive th 

at I came up with -for him to steal t 

he car is that he is -fascinated wi 
th anything that is coloured b 

lue, which drives him wild! I hope t 

hat you find Billy guilty because 

it's going to be great fun wa 

tching P.C PI odd trying to arrest him 

1280 PRINT " The only other reason is h 
e s stupid." 

CONTINUE" 7 5 PRINT " PRESS ANY KEY TO 

1300 PAUSE 0: CLS 
1310 PRINT s PRINT 

1320 PRINT " WHERE HE WAS AT THE TIME 


1330 PRINT : PRINT 

he 0 Bill Y said he was feeding 

Q hi, Ra ^ ts ** the time. <t 

t b ° a con strictor) " 

1350 PAUSE 0 r '" 

1360 GO TO 0340 

1380 PRINT INK 7: BORDER 0s CLS 

Fi H\ ITni ik Y0U ARE STANDING BEFORE 
1390 Print T CLOCK" 

ER" s PRINT « YQU SEEs A SPANN 
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1400 PRINT s PRINT " 

1410 INPUT a$ 

1420 IF a^="s" OR a $= 
1510 


EXITS ARE. SOuth 
south" THEN BO TO 




1440 IF a$="tak 
nner" THEN 
1450 GO TO 1410 
1460 CLS s PRINT 


< GO TO 2630 
spanner" or . 

GO TO 1460 9et 


YOU TAKE THE SPANNER 


1480 PRINT MIKE THE MECHANIC JUST SAW 
YOU TAKE HIS SPANNER AND YOU ARE mw 
THE PROUD OWNER OF A SORE NOSE"' 

1490 PRINT " (AND NO SPANNER!)" 

250s GO TO 1370 
PRINT " YOU ARE NOW STANDING 
LARGE EARS HOUSE. " 

: PRINT " YOU SEE: TYRE MAR 
DRIVE" 

: PRINT " EXITS ARE: NORTH, 


1500 PAUSE 
1510 CLS : 
BEFORE 
1520 PRINT 
KS IN THE 
1530 PRINT 
SOUTH, IN" 


1540 INPUT a* 


1550 IF a$="north" 
1370 

OR 

a#="n" 

THEN 

GO 

TO 

1560 IF a$~"south" 
1750 

OR 

a$="s" 

THEN 

GO 

TO 


1570 IF a$="in" THEN GO TO 1620 
1580 IF al : ="examine tyre marks" OR a-f 3 "! 
oak at tyre marks" THEN GO TO 1600 
1590 GO TO 1540 

1600 CLS : PRINT " YOU EXAMINE THE TYRE 
MARKS AND FIND THAT THEY ARE FRESH 


1610 PAUSE 140 : GO TO 1510 
1620 CLS s PRINT : PRINT " YOU NOW ENTER 
LARGE EARS HOUSE IT'S A MESS AS LS , 
AND THINGS ARE CLUTTERED UP 

OVER THE PLACE (LARGE EARS , 

S WAS ONE TO COLLECT J HI ^ rlUE S aF 

1630 PRINT : PRINT ” YOU SEE: A BLLt 
E ON THE WALL." , vOC . oU T" 

1640 Print : PRINT " EXITS ARE. 

1650 INPUT a* 

1660 if D--1 THEN GO TO 171 
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1670 IF a*-"out" THEN GO TO 1510 
1680 IF a*®"unlock safe" OR a$-"open sa-f 
e « THEN GO TO 1700 
1690 GO TO 1650 

1700 CLS : PRINT s PRINT " YOU CANNOT q 
PEN THE SAFE, YOU HAVE NO KEY ! " : PAUSE 
150: GO TO 1620 

1710 CLS : PRINT : PRINT : PRINT s PRINT 
"YOU OPEN THE SAFE, AND P.C F'LEB WALKS 
IN WITH LARGE EARS. OH DEAR WHAT H 

AVE YOU DONE NOW! YOU ARE TRIED AND CONV 
ICTED OF BURGLARY, AND SENT DOWN FOR 10 
YEARS. WANT A 

MOTHER CHANCE? I WILL PUT YOU 

BACK TO THE BEGINNING" 

1720 PRINT " (ever had the -feeling you'v 
e been set. up ! ) " 


1730 PRINT : PRINT 
CONTINUE" 

1740 PAUSE 0: CLS : GO TO 0010 

1750 CLS 5 PRINT : PRINT " YOU ARE NOW A 

T THE POLICE STATION" 

1760 IF j«l THEN GO TO 1780 

1770 PRINT " PADDY IS HANDING P.C PLEB 

MONEY AND TALKING TO HIM. COU 

LD THIS BE A PAYOFF?" 

1780 PRINT : PRINT " EXITS ARE: IN, NORT 
H, SOUTH, FAST" 

1790 INPUT a* 

1800 IF a$="i n " THEN GO TO 1930 


PRESS ANY KEY TO 


1810 IF a* 

1850 

1820 IF a « 

1510 

1830 IF a*=" east 
1990 

1840 GO TO 1790 
1850 CLS : PRINT 
t THE HIGH STREET 


south" OR a $= 
north" OR a$~ 


•s" THEN 
*n" THEN 


GO TO 
GO TO 


OR a*=" 


THEN GO TO 


PRINT "YOU ARE NOW IN 
VEPVnnnv" Mrs BAKER IS TELLING E 

U COU, nS B ? UT LARGE EARS CAR. 

D EVERYONE m ,T BE HER ° R 8HE W0ULD 0F T0L 

UTH^ EAST 1 "* PRINT " E) <ITS ARE: NORTH, SO 
!870 INPu ’ r WEST" 


1Q 80 IF a#-- 


north" OR a $= 


’n" THEN GO 


TO 
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1750 

1890 IF a*=”south" or aJrsa „ „ 

2160 THEN GO TO 

1900 IF a*-"east" OR a*-« e » THFK) ^ 
2230 HEN EO TO 

1910 IF a$="west" OR a$=" w » TH pK, 

2060 HEN EO TO 

1920 GO TO 1870 






• »\ jl im y 

STATION 


yuu ARE NOW I 


N THE POLICE- 

1940 IF j~ 1 THEN GO TO I960 
1950 PRINT " PADDY JUST HURRIED 

OFF OUT NOT EVEN SAYING up, 

L-0, P.C PLEB JUST WENT into thf bo 

CK ROOM." ~ 

1960 PRINT : PRINT " EXITS ARE: OUT"- 
LET j = l 


1970 INPUT a$: IF a$="out" THEN GO TO 1 
750 


1980 GO TO 1970 

1990 CLS : PRINT : PRINT " YOU ARE NOW 
AT BILL.YS SHOP, HE IS STANDING AT TH 

E WINDOW SMILING AT YOU 

YOU ARE WEARING A BLUE SHIRT" 

2000 PRINT : PRINT " EXITS ARE: IN, SOU 
TH, WEST" 

2010 INPUT a$ 

2020 IF a$="in" THEM GO TO 2300 
2030 IF a$="south" OR a*="s" THEN GO TO 
2230 

2040 IF a $="west" OR a*="w" THEN GO TO 
1750 




DOWN AN ALLEY 


EVERYTHING 


lJ IET AND DARK.." 

2070 IF p=l THEM GO TO 2090 
2080 PRINT : PRINT " YOU SEE:^A KEV^ 
2090 PRINT : PRINT " 

2100 INPUT at 
2110 if aT~~"t. ake key 
EN LET p«i 
2120 if a-T-"take key 
EN GO TO 2150 
2130 if a$="east" OR a* 

1850 


YOU act* " „ 

EXITS ARE: EAST 

OR a W ™ 

OR a»="0 et keY ™ 
a *=« e ” THEN SO TO 
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?140 GO TO 2100 

ni50 CLS : PRINT = PRINT " YOU TAKE 

■rHF KEY PAUSE 100: GO TO 2060 
2160 CLS : PRINT : PRINT 11 YOU ARE NOW A 
T THE POST OFFICE YOU SEE Mrs PEEBODY A 
SLEEP AT THE COUNTER THROUGH THE WINDO 
W" 

2170 PRINT : PRINT " EXITS ARE NORTH, BO 
UTH, IN" 

2180 INPUT a* 

2190 IF a$= "north" OR a$~"n" THEN GO TO 
1850 

2200 IF a**"south" OR a$s"s H THEN GO TO 
2330 

2210 IF a$="in" THEN GO TO 2400 
2220 GO TO 2180 


2230 CLS : PRINT s PRINT " YOU ARE NOW 0 
UTS IDE CLAIRES SHOP, AND SHE IS PUTT 
ING THE CAKES IN THE WINDOW, SHE GIVE 
S YOU A WAVE, AND THEN TAKES THE TRAYS 
THROUGH TO THE BACK ROOM" 

2240 PRINT : PRINT " EXITS ARE: NORTH, W 
EST, IN" 

2250 INPUT a* 


"north" OR a*-="n" THEN GO TO 


OR a$="w" THEN GO TO 


2480 


2260 IF a$= 

1990 

2270 IF a*—west" 

1850 

2280 IF a$="in" THEN GO TO 
2290 GO TO 2250 

! PRINT 5 PRINT " YOU JUST ENTE 
quench™ 8 SH ° P AS A MEAT CLEAVER CRA 
YctIwIS Y0UR HEAD - Y0U ARE DEAD, BILL 
p nrI A ^r° VER Y0U PIPPING THE JUMPE 

R OFF YOUR CORPSE.. " 

solution^ ' PRINT '" however there is a 

NSTfiNT RINT ! PR1NT " PRESS ANY KEY FOR I 

(PI Fflcr reincarnation. 

SE B: CLS ? rn° T o 0KES AB0UT MILK))": P» 
2330 riQ “ ™ 00 ^ 

T PADDYS HQURP NT ‘ PRINT " YOU ARE NOW A 
NYBODY cfiL "THERE IS NO SIGN OF A 
D HE HAVE fiS? WERE IS LOCKED UP, COUL 

23^ PR%t " N pp 'f„ T0 HIDE?" 

HE GARAGE" FRINT YOU SEE: A CAR IN T 
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E *ITS ARE: 


GO TO 
0R a*«"loolt at 


2350 PRINT : PRINT 
2360 INPUT a* HKE; NORTH 

2370 IF a*«"north" OR Thfm 

2160 THEN 
2380 IF a$-- ,, e;<ami ne car 
car" THEN GO TO 2560 
2390 GO TO 2360 

2400 CLS : PRINT : print " Y 0U fntfp tu 
E POST OFFICE, Mrs PEEB0Dy ^ R JH 

P AT THE COUNTER, SHE JUST SRUNTED 

SMACKED HER CHOPS AND WENT BArp 

TO SLEEP" * HLK 

2410 PRINT : PRINT " YOU SEE: SOME WIRE 
S LAYING ON THE FLOOR- 

2420 PRINT : PRINT " EXITS ARE: OUT- 
2430 INPUT a* 

2440 IF 3$= "out" THEN GO TO 2160 
2450 IF a$~"pull wires" OR a$="take wire 
s" THEN GO TO 2570 

2460 IF a$="exa(nine wires" OR a$="laok a 
t wires" THEN GO TO 2590 
2470 GO TO 2430 

2480 CLS : PRINT : PRINT " YOU ARE NOW 
IN CLAIRES SHOP, SHE IS STILL IN THE 
BACK" 

2490 PRINT : PRINT 
2500 PRINT : PRINT 
2510 INPUT a* 

2520 IF a$“"out" THEN GO TO 2230 
2530 IF a$="read letter" OR a*®"examine 
letter" THEN GO TO 2600 
2540 IF a$—"take letter" OR a*="get lett 
er" THEN GO TO 2630 

2550 GO TO 2510 ,-vamtwf 

2560 CLS : PRINT : PRINT " YOU EXAMINE 
THE CAR AND FIND THAT8 ITS LARGE EARS 
CAR! ! ! ": PAUSE 170: GO TO 2330 
2370 CLS s PRINT : PRINT " YOU PUL ^ 
WIRES AND LIGHT UP LIKE A CHRI 
rR EE! ! ! YOU ARE DEAD... wE c 

HOWEVER THERE IS ONE WAY □ takE 
A N SHOVEL ALL THE BITS 
YOU BACK TO THE BEGI J^ aNY KEY TO 
2580 Print : PRINT " pRE !L J0 0010 
CONTINUE": PAUSE 0: CLS _.\*VOU exAMl |ME TH 
2590 CLS : PRINT : PRINT 


YOU SEE: A LETTER" 
EXITS ARE: OUT" 
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F WIRES AND SEE THAT THEY ARE EL.ECTROF 
I ED!": PAUSE 120: BO TO 2400 
'■^600 CL S : PRINT : PRINT " YOU RE:AD THE 
LETTER, IT SAYS.. WHEN YOU ARE SURE YOU 
KNOW THE CULPRIT, GO TO FUNTOWN 

CLOCK AND TYPE IN 'ready'" 

2610 PRINT : PRINT " PRESS ANY KEY TO 
CONTINUE" 


2620 

PAUSE 

0: GO TO 2480 



2630 

CLS : 

PRINT : 

PRINT 

" 

YOU ARE MOW 

READY 

TO ACCUSE 

YOUR 

SUSPECT... 



SO WHICH ONE 

IS 

IT TO BE?" 

2640 

PRINT 

" 

(PRESS 

KE> 

( 1 TO 5)" 

2650 

PRINT 

s PRINT 

" 

1. 

LARGE EARS" 

2660 

PRINT 

: PRINT 

" 

2. 

PADDY" 

2670 

PRINT 

: PRINT 

" 

3 . 

CLAIRE" 

2680 

PRINT 

: PRINT 

" 

4. 

P.C PLODD" 

2690 

PRINT 

: PRINT 

" 

5. 

BILLY" 

2700 

IF INKEY**"1" 

THEN 

GO 

TO 2820 

2710 

IF INKEY**"2" 

THEN 

GO 

TO 2760 

2720 

IF INKEY**"3" 

THEN 

GO 

TO 2760 

2730 

IF INKEY**"4" 

THEN 

GO 

TO 2760 

2740 

IF INKEY**"5" 

THEN 

GO 

TO 2760 

2750 

GO TO 

2700 




2760 

PAUSE 

50: FLASH 1: i 

CLS 

: PRINT : PR 

I NT : 

i PRINT : PRINT : PRINT 

; PRINT : PR 

I NT : 

: PRINT 




2770 

PRINT 

i W 

M iii 

iiM MH Hi 


■ w w 

H 
1 


n ■ ■ ■ 

® W ffl 

■ ill 
H Mi 

■ iniin i 

2780 PAUSE 150. 
2790 CLS : PRINT ; 
N, HUNG UP BY THE 
WN. " 

2800 PRINT : PRINT 
ONG PERSON 
HE 


*■■■■■ 1 I 

i i mi min hi 

iiii i i ® i 

■ ■ i ■ ii ii ii 
» ■ H III " 

FLASH 0 

PRINT " YOU ARE TAKE 
FEET AND THEN CUT DO 


YOU ACCUSED THE WR 
Trw™ AND You ARE NOW KNOWN AS T 
U THCsr 2* LIAR EVERYBODY HATES VO 
v'ASAIIJ E rn S e~ SDLUTI0N ’ YOU CAN TR 

2810 RRI r jt SAVE YOUR REPUT AT I ON ! " 

Inu !^p’™^ ’ RR ESS ANY KEY TO 
287.0 FUSH h n ® ! G0 TO 0010 

1 : print : o CLS ! PRINT PRINT I P RIN 

PRINT s PRINT . pR PRIN 


100 


!" * * *■*»» 


■ I 

8 


2830 PRINT » n iH Km 

H 8 ■ ■ l| 

■ ■ ■ i i k - n 

i mm i H a m w »b i 

i « ■■■■■- M . 11 ■ 

i n ®ii iii § m 

2840 PAUSE 150: FLASH 0 
2850 CLS : PRINT : PRINT " YOU ARE CORRE 

AUSE IF HE DIDN'r D 0 A f T L SHY E WERE S THE C 

, TYRE MARKS still fresh in his dmve 

T PAYING A FINE IN THE POUCE 
, PADDY HAD THE CAR PLANTED oS 

HIM UNTIL LARGE EARS COULD pZ 

A OUT OF TOWN BUYER" 

2860 PRINT " P.C PLEB NEVER HAD MUCH OF 
A OPPORTUNITY TO DO IT AS HE WAS ROU 
ND AT CLAIRES SHOP THAT NIGHT" 

2870 PRINT " AS FOR BILLY, WELL HE WAS J 
LIST TOO STUPID TO DO IT!" 

2880 PRINT : PRINT " PRESS ANY KEY TO 
CONTINUE" 

2890 PAUSE 0: CLS 

2900 PRINT : PRINT " YOU TELL P.C PLEB 
AND HE ARRESTS LARGE EARS..." 

2910 FLASH Is PRINT " YOU ARE A HER 

FLASH 0 

: PRINT " CLAIRE OFFERS TO TA 
AND YOU LIVE HAPPLY EVER AF 


0 ! 

2920 PRINT 
KE YOU OUT 
TER " 

2930 PRINT : PRINT 
GAME <y/n>" 

2940 IF I.NKE Y*="y 
2950 IF INKEY**"n 1 

2960 GO TO 2940 „ PAL , 

2970 CLS : PRINT AT 10,10; "BYE BYE ■ 

S E 50: NEW 


DO YOU WANT ANOTHER 

THEN GO TO 0010 
THEN GO TO 2970 


c averns of Jupiter 


h this 
The 


a dventure you take the role of a spy f rorT1 ^ ar ^‘ 


With 


whi S u ientists from Jupiter have developed 3 
c h they are going to destroy the Earth. 


highly powerful nucl 


;lear weapon 
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Your mission is made up of three tasks. 


(i) to find the time grenade; 

ih to locate the secret underground laboratory and plant grenade; and 
(iii) to escape before the grenade, bomb and whole planet blows to smithereens 


The people of Earth wish you luck with your mission. 

10 REM *********** * * * * ******* 

20 REM * * 

30 REM * CAVERNS OF JUPITER * 

40 REM * * 

50 REM * BY * 

60 REM * * 

70 REM * JAMES R. MORTL.EMAN * 


80 REM * * 

90 REM ********************** 

100 REM 

110 BO SUB 2330 
120 RANDOMIZE 
130 LET stat=l 
140 DIM a(10,10) 

150 LET drr-G 

160 LET x =9: LET y==2 

170 LET ob.r-0 

180 POKE 23609,32 

190 LET "313BB44s43B33g44S1 BG4g4G43S 

1113444343g 1 s3414S4S444344x 3M4B443B3g3 " 
200 LET c$= "052704201560747362071761724 
051063747267020711650 11 
210 DATA 1,3,1,4,1,5,1,8,1,10,2,8,3,2,3 
, 5,3,6,3,7,3,8,4,2,4,3,4,5,4,9,5,3,5,9,6 
,2,6,3,6,6,7,6,8,1,8,3,8,6,8,8,8,9,8,10, 

9,1,9,3,9,4,9,6,9,10,It),1,10,6,10,7 

220 RESTORE : FOR n=l TO 35: READ aa,bb 
: LET a(aa,bb)=~1: NEXT n 
230 LET num=0: FOR n~l TO 10: FOR -f-l T 
0 10: IF a tn , f > < >-l THEN LET num*'rtum+ls 
IF a (n , f) < >-1 then LET a(n,f)=num: NEX 
1 f: NEXT n 


240 LET num=0: FOR 
0 10: IF a(n,f)<>-i 
LET a(n,f)=num 
250 NEXT f: NEXT n 
260 LET a(5,6)=~l 
2/0 DIM d(3): LET 
LET d(3)-63 


n~l TO 10: FOR -f*l T 
THEN LET num«num+l» 


d < 1 >*10. LET d(2)"12: 
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280 DIM r$<4,4)i DATA "ldva" 

RESTORE 280: FO p ’J? P 

_rnc> x h th /I . _ 1 1 


EAD rnT: FOR f -1 TO 


Ppmc","tt 
= 1 T0 4: R 

(CODE < m$ ( 5-f >>-!>): NEXT f ; 'T~ (CHR$ 
290 DATA "You are in a small r'oom full 
of flashing 1lghts. " , "There is 


n at or on t he f 1 oor ."/‘This i 


5 =* co-ordi 


T-. , the weapo 

n room. There isa closed cupboard in one 
corner.”,"You see a phaser-it is charged 
. ","Wow IThis place looks 1 i ke a disc 
o. ", "Someone has left a pair of weirdspe 
cs. " , "B" , " " , "B" , "" , "What a slimy dump th 
is is! Leave whi 1 e you canThis is 
the thought room,I think. "s" " 

" , "You are in the data storage bank. 

You have entered the computer ro 
om. ", "There is a piece of broken code di 
sc on the floor." 

300 DATA "6","","This place looks like 
a leisure room. ", "You see something shin 
y? It is a piece of broken code disc.","Y 
ou have come across a small shrine.", 
"There is a lamp in the middle of the flo 
or. " , "g " , " " , "Thi s is where they build th 
eir robots. "Ugh ! Not a pretty site 

! You. ar e .i. n t he mar t uar y 11 S " , " " ," A 
door with a slot,but a keyholethere's n 
at ! " , "You have entered the 1 aboratory.", 
"B" , , "G" , , "You have entered the libr 

ary. " , » *’ 

310 DATA "g" , "" , "This is a public la vat 
or y G " , " " , " Y ' won ' t like it ' ere Gu 

v,this isthe common part of the caverns. 

"You're not quite sure what to 
ke of this; it could be a gymnasium. 

" » "You see some chest expanders. 

? "Coul d this be the music room? 
are loudspeakers in each corner, 
ee strange lights due east. 

’ ^. ble tra 


"S" 
There 
","You 
"This room 

stranqe nqnts uw ■■ ec 

appears to be empty "However » ^ tra 

3 have revealed a hitherto mvis 
P door which leads east.’ „ „g g g 

“520 DATA "You see a red butt ■ ^ int 
M ! ! The room, along with V * rED MEA 

° smi thereens. Next time rememoe ^ th 
r '1S DANGER ! " , "l-lel 1 o handymen , V 
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e workshop. ", "You see a disguarded pa 
ir of pi vers., " , "What an incredibly bo 

ring,empty room"Yog are stunned by 
an immense model of the planet Jupite 
r , comp1et e w i t h moons.Be11 er 1eaveq u 

ickly though, because it is heavily g u 
arded","" 

330 DATA "You are in a room full of 

t e 1 ev i s i on sc r een sI n t. h i s a 1 mo 
s t -empty r o o m, t. h e r e 1 i e s a c a r d b o a r d b o 
. ","You have found a can of .inse 

cticide. " , "This room is full of cameras. 

. , ARE YOU BEING WATCHED??","","Hey,this 
looks like a shoe shop!", "There is a pa 
ir of asbestos lined boots on the fl 

oor.","g","","Watch out there ' s a guard 
here. 11' s okay , he ' s t oo busy p 1 ay i ng ' v H 
uman Invaders''' to notice you. ","You see 



een S " d " 9 " a «J sprawled over a video scr 
„ f '*, T * s " . , his .is the heaq a na 1 room 
' ’ lhere ls a r ope on the floor." , " A sp 

? thi s must be the trans 

"? DAfA^ You are in a large hall with 
oli rOQt ■ ”, "You see stars above y 

" "Ti'v ? B the 801 den room.'',. 

’ T £‘" f? the silver cavern. 

Thi?? dOWn thB walls. 

Id be able e to a ?i?b PPing * raa - You S "°n 
You have entered ?h» unnoticed.''," , 

at ions " -iv " h Cavern of communic 

S. Why’don t 0 v? 0n t find anything her 
"-"This ice h " j OU go somewhere else."," 
IS the detense hall.", "Some one 


, 11 S 11 *i 

Dewdr 
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has left a gas mask on the . 

350 DATA "You feel your blnnS * 
your head. The only explanation*^!! 
at this is a reverse nra ' 15 th 

er . " , " " , "Phew ! It's hot! The f urn * Chdrnb 
underfoot."start","" »y OL1 h f 13 
ered the octagonal room. " ’ "There il 
ey hanging from a hook on the wall’ " 

N" , " " , "You have found a dreary cavern \ 

ull of dirt and si i me. " , " " ? "b .. - What 

a pong! There is a pool of stagnant wate 
r on the ground""Stalactites and sta 
1 acini tes are abundant in this cavern 


360 DATA "This looks like some kind of 
rubbish tip.", "There is an iron bar w 
i thi n easy reach. " , "B" , " " , "You are in the 
transport controlcentre. ", "There is a p 
iece of broken code disk on the floor.", 
"g" , , "This is the darkest corner of 

the? caverns. " , "You see what you've been 
1 oo k i n g f or-... A TI ME GRENADE. " 

■370 DIM q:$ (20,30): DATA "a coordinator" 
"a phaser ", "weird specs","weird specs w 
hich I 'm wearing" , "a piece of broken cod 
e disc", "2 pieces of broken code disc"," 

■3 pieces of broken code disc", "a fully i 
ntact code disc", "a 1 amp" , "some chest ex 
panders" , "a pair of plyers","a can of in 
secti ci de" , "a pair of asbestos-lined boo 
ts"," a rope","a key","an iron bar","A TI 
ME GRENADE!" , "a gas mask which I'm wear in 
9" - "boots which I'm wearing","* 9 as mask 


380 DIM o(20): LET disc=0 
390 DATA 1,-2,3,-2,-3,-3,-3, 
i -‘5,3 7 ,, 4.1. , 55,61,65 , —2, —2,51 A n nt 

400 RESTORE 370: FOR n*l TO 20: ht AD of 
(n); NEXT ns FOR n = l TO 20: READ o(n). 
EXT n 

4 ;1 - 0 C30 TO 1260 
4 30 BORDER 4: PAPER 4s -- 

NT "This looks like a mistak».An ^ c , 

1 ©ndl y Blittermite is liLoed.": G 

^les around you. You are tr appe 
tj SUB 2420 


,13, 


INK 0: CLS . 
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430 RETURN 

440 BORDER 5: PAPER 5: INK 0 s CLS : PR I 
NT ..p-p-s-S-S-S-T ! With one spray of y 
our insecticide,the Blitter-mite falls t 
o the ground,,": 00 SUB 2440 
450 RETURN 

460 BORDER 5: INK 0: PAPER 5s CLS : PRi 
NT "The Blittermite swoops down and inje 
cts its poisonous sting intoyour body."* 
PAUSE 300: GO TO 1550 

470 BORDER 4: PAPER 4: INK 0: CLS : PRI 
NT "This room is empty,apart -from a dead 
B1 ittermite." : RETURN 

480 BORDER 6 : PAPER 6 : INK Is CLS : PRI 
NT "Oh dear,you have walked straightinto 
a guard.You '11 have to think quick! 

y because his hand is moving rapidly to 
wards his phaser... The guards have ord 
ers to shoot intruders on sight!" 

490 RETURN 


500 BORDER 7s PAPER 7: INK 2: CLS s PRI 
NT "You pull your phaser faster thanthe 
fastest laser warrior and shoot the he 
1 pi ess guard,,": GO SUB 2500: RETURN 
510 BORDER 7s PAPER 7: INK 2: CLS : PRI 
NT "The guard fires his phaser at 
head.It is set to kill. 

TO 1550 

520 BORDER 6 s PAPER 6 s 


your 
PAUSE 300: GO 


INK Is 


. B... x. CLS s PRI 

there is a horrible smell and a pool 
of blood on the ground. A dead guard i 
V" * ;he middle of the cavern." 

530 RETURN 

540 BORDER 3s PAPER 3s INK 7s CLS : PRI 

_ h k ■ T' This 4 3 a tra P ! The doorsclos 
oerund you and gas shoots through tiny 

^RETURN " a “- ArS y ° U d00med7?? '' 

‘7 1= INK 7, CLS = PRI 
: n -ay,because you are wear 

o and°the 9 ? mask ’ Y °« wait an hour or s 
mi “P-n-Vou are free to 
570 _ RETURN miSSlon - 

p fi pg R j. IN|< 7 . CLS : PRI 
the chamber you begi 
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n to feel dizzy...a pain in your throat 
„ . a 1 on g i n g f or ox ygen ...and then, 

nothing.": GO SUB 2440: PAUSE 400; GO* TO 

1550 

590 BORDER 3: PAPER 3: INK 7: CLS : PRi 
NT " Yeeeowww! Boiling mud! It burns your 

feet ; You can't carry on.": PAUSE 350: G 
0 TO 1550 

600 BORDER 3: PAPER 3s INK 7: CLS : PRI 
NT "You walk through a pool of boil 

ing mud: Thanks to your boots!": RET 

URN 

610 BORDER 1: PAPER 1: INK 4: CLS : PRI 
NT ,"A" ' , "a" ' , "a" , "r" ' ,"g" ' , "h" " 

You have fallen into a snake pit": GO SU 
B 2440: RETURN 

620 BORDER 1: PAPER 1: INK 6 : CLS : PRI 
NT "You have escaped by using your rope 
.": RETURN 


630 BORDER Is PAPER 1: INK 6 : CLS : PRI 
NT "You have been eaten alive by thedisg 
Listing alien snakes!": PAUSE 300: GO TO 
1550 


640 BORDER 6 : PAPER 6 : INK 0: CLS : PRI 
NT "You are in a corridor.": RETURN 
650 LET ex=0: PRINT.EXITS ares" 


660 

IF 

x < 

>1 THEN 

LET ex-ex +(0 AND a(x- 

1 ,y>< 
670 

IF 

1 ) 

>10 THEN 

L.ET ex ~ex + (4 AMD a (x 

+ 1 , y ) 
680 

IF 

- 1 ) 
y<; 

>10 THEN 

LET ex=ex+(2 AND a(x 

, y+1) 
690 

IF 

-1) 
y<- 

>1 THEN 

LET ex=ex+(l AND a(x, 


v-no-i > 

■ 7 00 LET ex 1 ==ex: PRINT ("North" AMD exl 
8 >=0) * LET ex 1 =ex 1 -• (8 AND ex 1 -8 > : =0 > : RR1 
NT (“South" AND exl-4>=0): LET exl-exl-Ji 
4 AND exl-4>--0> : PRINT ("East" AND - 

>= =®>: LET ex 1 ~ex 1 - (2 AND exl-2>*0)« FhI 
r ("West" AND ex 1 >0 ) , _ T v . t(1 

. 710 LET x*=" -": LET exl=ex: LET ' * 

} :== ( " n " AND ex 1 -8 >=0 > : LET ex 1 1 ,. =0} 

. e * 1 -S >« 0 ) ; LET x # (21 •* ( " s " AND ex ^ (3 

» LET ex 1 -ex 1 - (4 AND ex 1 -4 >*0 • •“ (r? aND 

AND ex 1 -~2>=0> s LET 
e '" : i -2>==0) 5 LET x (4) = ( " w* AND e. 
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720 RETURN 

730 IF LEN q$<8 THEM GO TO 1070 
740 LET y*=q*(6 TO 8) 

750 LET tk=0: LET tk=tk+(l AND (y$=" CDo 
11 OR y$="co-" OR y*="co " > > + < 2 AND y*="p 
ha" ) + <3 AND (y*= " wei " OR y*= " spe ” ) ) + < 9 p, 
ND y$-" 1 am" ) + (l0 AND (y*="che" OR y$ 4 " ex 
p ") ) + (11 AND y*= " ply" ) + (12 AND ( y $-~" c an " 
OR y$="ins") ) + <13 AND <y*="asb" OR y$-=" 
b 00 "> > + <14 AND y*="r op") + (15 AND y*=»k ey 
" ) + (16 AND (y$= " i r o " OR y$= " b ar " ) ) + (1 7 a 
ND (y*= "tim" OR y$= "gre")) + ( 1 B AND y*= •* s 
cr ") + (19 AND y$= " p 1 u" ) + (20 AND ( y $~-" gas " 
OR y$="mas">) 

760 IF y$="bro" OR y*="dis" OR y*="cod" 
OR y$«"pie" THEN GO TO 1460 
770 IF t.k~0 THEN GO SUB 1070: RETURN 
780 IF o(tk)=a(x ,y) AND obj>=7 THEN GO 
SUB 1130: GO TO 1950 

790 IF o(tk)-a(x,y) THEN PRINT ">OKAY" 
: LET obj*Qbj+ls GO SUB 2460: LET o(tk>= 


~1 

800 IF a(x,y)=l AND tk= 
THEN LET s $< 1) = " 4 " : GO 
810 IF a (x , y >=2 AND tk = 
THEM LET s$<2)= ,, 4": GO 
820 IF a(x,y)=3 AMD tk= 
THEN LET s*<3)="4": GO 
830 IF a(x,y)*13 AND tk 
" THEN LET =*(13)--"4": 

840 IF a <x,y)=26 AND tk 
3" THEN LET =*(26 )-"4 „ 
850 IF a(x,y)=31 AND tk 
3" THEN LET s*(31>="4" : 

860 IF a(x,y>=35 AND tk 
3 " THEN LET 5 *(35)=" 4 " : 

870 IF a(x,y)= 4 1 AND tk 
3" THEN LET s* (41 ) =" 4 ." . 

880 IF a L; ,y )=55 AMD tk 
3 t HEN LET s$(55)=" 4 "j 
8R0 IF a(x,y)=61 AND tk 
3 THE N LET 5 *(61)=" 4 "; 

,!"£ a , ( «'V>=65 AMD tk 
LET s*<6 5 >«»4"i 

3 » ?hen a ,L ; y)=51 AND tk 

THEN LET s* ( 5 i >ss »'4 


1 AND s*(1)="3* 
TO 1260 

2 AND s*(2)="2‘ 
TO 1260 

3 AND s* (3> —"3 ,! 
TO 1260 

=9 AND s* (13) ==' 
GO TO 1260 
=10 AND = *(26)= 
GO TO 1260 
=11 AND s*(31)= 
GO TO 1260 
=12 AND s*(35)= 
GO TO 1260 
14 AND s*(41)= 
GO TO 1260 
=15 AND s*(55)= 
GO TO 1260 
=16 AND s*(61)“ 
GO TO 1260 
=17 AND s*(65) 3 
GO TO 1260 
=20 AND s*(51)= 
GO TO 1260 
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920 IF a (x , y) =37 AND tk = 13 AND s*< 37 )=» 
■V THEN LET s* (37) = "4": GO TO 1260 
'930 GO TO 1950 

940 PRINT "It's not here,DUMBO!"; GO TO 
1950 

950 IF LEN q*<8 THEN GO TO 1070 
960 LET y*=q*<6 TO 8) 

970 LET dr =0: LET dr=dr+(l AND (y*="coo 
.. 0 r y|="ca-" OR y*="co ")) + (2 AND y*=" p 
ha") + <3 AND (y*="wei" OR y*="spe") ) + (9 A 
ND y*=" 1 am" ) + (10 AND (y*="che" OR y*="ex 
p"))+(ll AND y*="ply")+(12 AND <y*="car," 
OR yf="ins" ) ) + (13 AND <y*="asb" OR y*=" 
b 00 " ) > + < 14 AND y*= "rop " ) + (15 AND y*= " key 
" ) + (16 AND (y$="iro" OR y*="bar ") ) + (17 A 
ND (y*="tim" OR y*="gre">> + (18 AND y*="s 
cr") + (19 AND y*="plu" ) + (20 AND (y*=--"gas" 
OR y*="mas")> 

980 IF y*="bro" OR y*="dis" OR y*="cod" 


OR y *="pie" THEN GO TO 1500 
99© IF (o(dr > =~1 OR o(dr>=-2> AND (dr=3 
OR dr=13 OR dr=20) THEN LET pi=(4 AND 
dr=3) + (19 AND dr=13) + (18 AND dr=20): LET 
o (pi > =~2: IF pi =4 THEN LET 5* (28)="1": 
LET s* (29) = " 1 " : IF y <6 AND (x>2 AND y <8 
) THEN LET a(5,6>=-l 

1000 .IF o(dr)=-l OR o (dr) =-2 THEN PRINT 
">QKAY"x LET obj=obj —1: GO SUB 2480: L.E 


T o (dr) = a (x ,y) : IF y *= " t i m " OR y *= "gre 11 
THEN GO SUB 1540 
1010 GO TO 1260 

1020 PRINT "You can't, drop something you 
haven't, got, IDIOT'!": GO TO 1950 
103© IF q * ( 4 ) < > n >• AND q * (4) < > " S " AND q* 
(4) < >" e " AND q* (4) < >"w" THEN GO SUB 107 
GO TO 195© 


1040 
1050 
X T n; 
1060 
(f *=' 
1070 
1080 
1090 
an ! " j 
1100 


LET f*=q*(4) 

FOR n = 1 TO 4s IF x*(n><>f*' 1HEN Nb 
GO SUB 1140: GO TO 1950 
LET x =x + (f " s “ ) - (-f *= " n " >: LE \ y~Y 
e " ) -- (f *= •• w " ) : GO TO 1260 

TALK RUBBISH! ! ! " 


PRINT "DON "I" 
GO TO 1950 
PRINT "I'm a 
RETURN 
PRINT "I can 


computer,not a Samar it 

t do that.": RETURN 
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PAUSE 200: POKE 


1110 print "i “\?:, b ^s nt,but x ‘" r 

, that br i 111 ant.! « EL l UrvM 

11O0 PW'f 23613, PEEK 23730-5: BORDER 0. 
WER 0 = INK 2: CLS : PRINT "Rudeness 

1 ] get you nowhere 
3659,163 
1130 PRINT 
RETURN 
1140 PRINT 
URN 

1150 PRINT 


•You can't carry any more,": 
•You can't go that way!": RET 


LET n0”0: 


FOR n *l 
IF o (n) 


, ,,_ You see: 

TO 20: LET n0*n0+(o(n)-a(x,y)): 

=a(x,y) THEN PRINT o$(n) 

1160 NEXT n 

1170 LET clk-0: FOR n=l TO 3s IF d<n)=a<x 
,y) THEN LET dk*dk+ls LET n0=n0+l 
1180 NEXT n 

1190 IF dk>0 THEM PRINT o$ (4+elk) 

1200 NEXT n: IF n0-0 THEN PRINT "nothin 
q at all" 

1210 RETURN 

1220 LET oj=0: PRINT "I haves": FOR n~l 
TO 20: IF o(n>==”l THEN PRINT o$ (n) s LET 
o j-oj + i 

1230 NEXT n: IF disc>0 THEN PRINT o$ (44- 


disc) 

1240 IF oj=0 AND di sc-0 THEN PRINT "not. 
hing at all" 

1250 RETURN 

1260 RESTORE 290: FOR n=l TO a<x,y>: REA 
D m*,n*s NEXT n 

1270 LET j$=s-T (a (>;, y) ) : IF j*="B" THEN 

BO SUB 420: LET dn = l: (30 TO 1950 

1280 IF j$="b" THEN GO SUB 470: GO TO 1 

440 

1290 IF j$="S" THEN GO SUB 610: LET dn* 
2: GO TO 1950 

1300 IF " AND stat = l THEN GO SUB 1 

890: GO TO 1440 

1310 IF j$="x" AND stat”2 THEN GO SUB 1 
930: GO TO 1440 

1320: IF j$-"x" AND stat-3 THEM GO SUB 
1940 


1330 IF i$="g" THEN GO SUB 480: LET dn'-* 
GO TO 1950 

Im 0 IF THEM GO SUB 520: GO TO 1 
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^ f A IF j"M" AND o (19) =—1 THEN GO SUB 
V tm: GO TO 1440 
ZZ IF j#="M" THEN GO TO 590 

IF j G " THEN GO SUB 540: LET dn = 
4 s GO TO 1950 

1" ! P0 IF THEN GO SUB 640: GO TO 1 

1^90 LET cr-(INT (RND*24)+1)*2 

3400 LET cl"UAL cf(cr): LET cll=VAL c$ (c 

f — 1 ) 

1.410 BORDER cl 1: PAPER ell: INK cl: CLS 
i ET el-sf<a<x,y)): IF e$-"3" OR e$= 
i, j M OR e *-"4 M THEN PRINT m$ 

1430 IF e$="3" OR e*="2" THEN PRINT i r$ 
j440 PRINT : 60 SUB 1150: PRINT : GO SUB 
650: IF o<l)—1 THEN GO SUB 1530 
1450 GO TO 1950 

1460 FOR n-1 TO 3s IF d(n)Oa(x,y) THEN 
NEXT n: GO TO 900 

1470 IF d (n) - 10 OR d (n) = 12 OR d (n) -63 TH 
EM LET s$(a(x,y))="4" 

1480 LET di sc==di sc + 1 : LET d(n)=-i 

1490 PRINT " >OKAY": GO SUB 2460: GO TO 1 


950 


1500 IF disc-4 THEN PRINT "Its special 
properties make it UNDROPABLE!" 

1510 FOR n- 1 TO 3: IF d (n)O-l THEM NEX 
T ns GO TO 1020 

1520 LET disc-disc-1: LET d (n)-a(x,y) : P 
PINT ">OKAY": GO SUB 2480: GO TO 1950 
1530 PRINT '"Your coordinates are ( "« x; 11 
, ■■ -y. .. > » ' . RETURN 

1540 LET stat-3: PRINT '"You have pi ante 
d the grenade. . . now you must escape.": 
PAUSE 200: RETURN 


1550 BORDER 0: PAPER 0 s INK 7: CLS : PR I 
NT "You were their best agent. You fail 
ed. )he destruction of the Earth is imm 
inent." 

1560 DATA BIN 10100000,BIN 01110000,BIN 
i 11 10000, BIN 0 nil 000, BIN 00011100, B.IN 0 
0001110,7,3 

1570 RESTORE 1560: FOR n-USR "a" TO USR 
*" +7 « READ qrs POKE n,gr: NEXT n 
1,j80 For nssl TQ 50 . pL0T , I NT <RND*2u6),I 

T <RND*140)s NEXT n 
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159 0 ink Is FOR n=175 TO 0 STEP -2: 

?55--n,0: DRAW n,0,“PI: MR XT n 
1600 INK 2s FOR n=0 TO 10 STEP .5s CIRCL 
E 114,130,ns NEXT n 
1610 INK 5: LET xb=15 
TO 7: PRINT AT yb,xb; 

PAUSE 20: PRINT AT yb,xb; PAPER (n) 

LET xb"xb+l: LET yb«yb+ls NEXT 
1620 REM -LINE ABOVE-' graphic A 
1630 PRINT AT 11,19; INVERSE 1; INK 
11 s AT 12,20; INVERSE 1; INK 1;" "; AT 
I; INVERSE 1; INK 1;" " 

1640 FOR x*7 TO 0 STEP -Is FOR n-10 TO 2 
1: PRINT AT n,10; OVER 1; INK x; PAPER 0 
. » "s NEXT ns NEXT 


PLOT 


LET yb«7: FOR n = l 
PAPER (n>4) r, "a" s 
>4) ; " 


13,2 


x 

1650 PRINT AT 15,16; INK 2;"T H E E N D 


1660 GO TO 1770 

1670 BORDER 05 PAPER 0 5 INK 7 s CLS 5 PR I 
NT "Your craft speeds away from Ju.pi 

ter s a doomed planet...." 

1680 FOR n-1 TO 505 PLOT I NT (END *256) , I 
NT (END*150)s NEXT n 

1690 INK 2s LET x .1=1005 LET yj®90s FOR n 
-50 TO 0 STEP -Is CIRCLE a j ,y j ,n: LET xj 
-xj+.5s NEXT ns PLOT 20,90s DRAW 160,0 
1700 INK Is FOR n~0 TO 7 STEP .5s CIRCLE 
223,27,ns NEXT n 

1710 INK 6s FOR n=0 TO 4 STEP .5s CIRCLE 
30,50,ns CIRCLE 170,120,n 5 ClRCLE 55,14 
5,ns CIRCLE 150,40,ns CIRCLE 60,25,ns NE 
XT n 

1720 DATA BIN 00001000,BIN 00011100, BIN 
00001110,BIN 01001110,BIN 11111110,BIN ® 
1111111,BIN 00111111,BIN 00000111 s RESTO 
RE 1720s FOR n=USR "a" TO USR "a"+75 REA 
D qr: POKE n,grs NEXT n 

1930 LET a=19: LET ys=10: FOR n = l TO 3" 
PRINT AT ys,xs; INK 3;"a": PAUSE 20s PF 
INT AI ys, xs; " "s LET ys=ys+1: LET xs«x® 
♦Is NEXT n 

1.740 REM "'LINE ABOVE " graphic A 
1750 PLOT 20,90: DRAW INK 0:160,0 5 FOR 
n =0 TO 51 STEP 3: CIRCLE INK 0;100,90," 
: NEXT ns GO SUB 2500 
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■,760 PRINT AT 11,6; "T HE E N D" 

l770 PRINT AT 21,0; INK 7; FLASH 1; "PRES 

a A KEY 11 : PAUSE 0 

1780 BORDER 5 s PAPER 5 s INK 1: CLS : PR I 
NT AT 10,0!"Bo you want to play again (y 

/ n) ? " 

3790 LET a$=INKEY$s IF a$<>"y" AND a$<>" 

n » THEN GO TO 1790 

3900 CLS s IF aT”"y" THEN RUN 

1810 PRINT AT 10,0;"'STOP or 'NEW ? < 

s - or n >"5 PAUSE 10 

1820 LET a*-INKEYT; IF a*< >"s" AND a$<>" 

n" THEN GO TO 1820 

1830 IF- at="n" THEN GO TO 1850 

1840 STOP 

1850 CLS s PRINT AT 10,0;"Are you sure ? 
(y/n) " 

I860 LET a$=INKEY$: IF a*<>“y" AND a*<>" 
n" THEN GO TO I860 

1870 IF a$< >“y" THEN CLS 5 GO TO 1810 
1880 NEW 

1890 BORDER 5 s PAPER 5: INK Is CLS : PR I 
NT "You have landed in a secluded spot 
and have camoflaged your craft.You mu 
st set off on your mission.When complet 
e,return here immediately and take of 
f for Earth."' '"You would be wise to d 
raw out a map as you go along or you cou 
Idbecome hopelessly lost in the networ 
t of caverns." 

1900 PRINT ' ' FLASH i;"THE EARTH IS DEPE 
NDING ON YOU !!" 

1910 LET stat=2 
1920 RETURN 

1930 BORDER 5 s PAPER 5 s INK Is CLS : PR I 
Ml "I his is the secluded spot where you 
First began your mission."5 RETURN 
1940 BORDER 5: PAPER 5 s INK 1: CLS 5 PR I 
N* "Congratulations.You have saved the 
a r ■■ h f r o m d e s t r u c t i o n. I c a n imagine t h e 
deo--headl i ries.... . 'Return of a Hero , 

©1 come homeSavi our ', 'Jupiter crisis ove 

'.Press Any Keys "; FLASH 1;">": p A 

0! GO TO 1670 

F'R I NT : INPUT "What Mow ? "S LINE q 
" ! ' F ' "" THEM GO TO 1950 
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1960 IF ( 43 ) ="2" THEM LET s$ (43) ==" \ ** 
1970 IF s$(2)“"2" THEN LET s$<2)="4" 

1980 LET bi : =" " 5 IF LEN q~T<7 THEN 

LET q$=q$+b$ (LEN q-T TO ): REM b$~"seven 
spaces" 

1990 ip q$U TO 4)-""save" THEN GO SUB 2 
530! GO TO 1260 
2000 IF dn>0 THEN GO TO 2230 
2010 IF (q$ (1 TO 7) ""press b" OR q$ (1 TO 
7> = "push bu " ) AND a (x , y > “30 THEN PR I NT 
n $s PAUSE 200: GO TO 1550 
2020 IF q$(l TO 3) --"get" THEN LET q:$ : ="t 
ake"+q$ <4 TO LEN q*) 

2030 IF q*“"quit" THEN GO TO 1800 
2040 IF q:f (l TO 4) “"mend" AND di®c«3 THE 
N LET disc-4; PRINT ">OKAY"'"You have a 
n intact code disc."; GO TO 1950 
2050 IF q#(l TO 4)“"take" THEM GO TO 73 
0 

2060 IF q$(l TO 4) “"drop" THEN GO TO 95 
0 

2070 IF q* (1 TO 2) “"go" THEM 60 TO 1030 
2080 FOR n-1 TO 4; IF q$(l TO 4) =r$ (n) T 
HEN GO TO 1120 
2090 NEXT n 

2100 IF q$(l TO 3) ="inv" THEN GO SUB 12 
20; GO TO 1950 

2110 IF q$ < 1 TO 3>“"exi" THEN GO SUB 65 
0: GO TO 1950 

2120 IF q$ (1 TO 4) “"help" OR q* (1 TO 6 > = 
"let me" THEN GO SUB 1090; GO TO 1950 
2130 IF q$(l TO 3) “"who" OR q$ (1 TO 4)-" 
wher" OR q$ (1 TO 3) “"how" OR q$ (1 TO 4>* 
"what" OR q$ (1 TO 4) “"when" OR q# (1 TO 3 
) “"why" THEM GO SUB 1110s GO TO 1950 
2140 IF q*(l TO 7)“"wear sp" OR q$ (1 T0 
7) “"wear we" AND o<3>—1 THEN LET 0 ( 3 )== 
-2: LET o(4)=-l: PRINT ">OKAY"s LET a (5, 

6 ) “30: LET s$<28>“"3" : LET < 3 $ ( 29 )="3" 
2150 IF q$ ( 1 TO 7) “"wear sp" OR q* (1 T ° 

7) “"wear we" AND o(3>=-2 AND o(4)—1 THL 
N GO TO 1260 

2160 IF q $(1 TO 7)“"wear sp" OR q* < 1 T0 
7) “"wear we" AND o(3)*-2 AMD o(4)="1 1 Hfc 
N GO TO 1950 

2170 IF q*<i TO 7) “"wear as" OR q*<l T ° 
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-"wear bo" AND o<13>—1 THEN LET o(13 
J s "LET o(19)— Is PR I NT " >OKAY " : GO TO 

1950 

-190 IF q$(l TO 7) “"wear ga" OR q* (.1 TO 
7 )-"wear ma" AND o(20)—1 THEN LET o(20 
)“-~2; "LET o(18>—1: PRINT " >OKAY" : GO TO 
' 1950 

2190 IF a(x,y)=2 AND q$ (1 TO 4) “"open" A 
ND o(2)— 2 THEN LET s$<2>="2"s LET o(2) 
-~2: GO TO 1260 

9200 IF a(x,y>“18 AND disc“4 AND (q$(l T 
0 5) =" i riser " ’ OR q* (1 TO 6) “"si ot d " OR q 
(1 TO 6 ) “"use di " OR q-T (1 TO 7) ="put di 
S ") THEN LET s$(18)“"2": GO TO 1260 
2210 IF o(4)—1 THEN LET s* (28) ="3": LE 
T sf- (29) “"3" 

2220 IF a(x,y)“39 AND o( 2 )—1 AND (q * (1 
TO 4) “"kill" OR q$(l TO 4)“"shoo" OR q$( 

1 TO 6 ) “"use ph"> THEN LET sT(39)="2"; 

GO TO 1260 

2230 IF a(x,y>“43 AND q$(1 TO 7)“"look u 
p" THEN LET 5 $(43)“"2": GO TO 1260 
2240 GO SUB 1100s GO TO 1950 
2250 IF dn-- 1 AND a (12) 1 AND <q$ ( 1 TO 4 

> = " spr a " OR |i (1 TO 4 > “ " k i 1 1 " OR q$ (1 TO 

6)“"use in") THEN LET dn=0: LET s$(a(x 
, y))“"b": GO TO 1260 
2260 IF dn-l THEN GO TO 460 
2270 ip dn“3 AND o(2> —1 AND (q$ (1 TO 4) 
""kill" OR q;:t (1 TO 4) “"shoo" OR q* (1 TO 
o)= "use ph"> THEN LET dn-0: LET s$(a(x, 
yna" V ". go TO 1260 
•^280 IF dn“3 THEN GO TO 510 
: IF dn=2 AMD o(14)“-l AMD (q$(1 TO 4 

"T clim " OR qT (1 TO 4) “"thro" OR q$ (1 TO 

.~" use ro") THEN LET dn“0: GO SUB 620 

;bO TO 1440 

^300 ip Com 2 then 00 TO 630 
ANin - ^ F dn==4 AND (o (18) 1 OR (o(20>—1 

s u ^*(1 TO 4) “"wear" OR q$ (1 TO 6 )="u 
ip T 9 ;" 0R q$Ll TO 6 ) “"use ma")))) THEN 
9 j.. d 1 ®" 00 SUB 560: GO TO 1440 
F " dn“4 THEN GO TO 580 
-"•^BORDER is CLS : FOR n=l TO 11s PRIN 
S r ^. K 2 ? PLASH Is PAPER 7; "C A V E R N 

OF j y p j y E R „ 
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2340 PRINT INVERSE 1; INK 2s PAPER 7 
LASH Is" CAVER NS OF J!J p j T * f 
": NEXT n H 

2350 FOR d=l TO 85 STEP 8: CIRCLE ink -- 
; BRIGHT 1; FLASH 0s 255/2,175/2,d• NEXT~ 
d: PRINT AT 10,7; INK Is PAPER 7 s”FLASH 
1; BRIGHT 1;"BY JAMES MORTLEMAM"- AT '11 x 
; FLASH Is INK 7; PAPER is BRIGHT j . 

SS A KEY TO START" 

2360 PAUSE 0s BORDER 5s PAPER 5s INK l- 
CL.S s PRINT AT 10,0; "DO YOU WANT INSTRLir 
TIONS ? <y/n>" 

2370 LET q$=INKEY$s IF q$< >"y" AND q$. : - 
n" THEN GO TO 2370 

2380 IF q$="n" THEM CLS s BORDER 5: PAP 
ER 5; INK Is PRINT AT 1010;; FLASH 1 ; "F‘l 
EASE WAIT": RETURN 



2390 CLS s PRINT INK 2s PAPER 7; FLASH 
1; "C A V E R N S C)F J U P I T E R" 
2400 PRINT ''"In this a d v e n t u r e , v o u. t. a k e 
on the role of a spy from Earth 11 T 
he evil scientists f rom Jupiterhave deve 
loped a highly powerfulnuclear weapon wi 
th which they are go.i. ng to destray the 
Earth"Your mission is comprised of 
three tasks: <i> to find a time grenad 
e (ii) to locate the secret undergr 

ound laboratory and plant the grenade, 
and (iii) to escape before the 

grenade,the bomb and the whole planet 
blows to smithereens." .. ... 

2410 PRINT '"PRESS ANY KEY TO START THt^ 
GAME.": PAUSE 0: CLS : BORDER 5: PAPER o 
S INK 1; PRINT AT 10,105 FLASH 1; "PLEAob 
WAIT";: RETURN 

2420 FOR g=- 1 TO 3: LET f«50: FOR n«l 
50 STEP 3s BEEP .01, ns BEEP .01,*: LE1 
NEXT n: NEXT g 
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FOR n=10 TO 60: BEEP .001,ns NEXT r 
i4 pOP n-59 TO 10 STEP -Is BEEP .001,n: h 


EXT n 

2450 RETURN 


? A. 5 0 r;c. 1 unn 

? 46 0 FOR n=0 TO 30 s BEEP 


NEXT n 
2490 RETURN 

2500 DATA .5,0,.5,4,.5,2, 


,03,n: NEXT n 
Is BEEP .03,n: 


.5 


5,7 


7, 


1,0 

2510 RESTORE 2500: FOR n = l TO 7: READ aa 
*bb: BEEP aa.bb: NEXT n 
2520 RETURN 

2530 CLS : PRINT "TO RELOAD,TYPE LOAD " 
"caverns""'": SAVE "caverns": CLS : PRIN 
T "Press any key to continue or A' t 

o stop" 

2540 LET a*«INKEY$: IF a$="" THEN GO TO 
2540 


2550 IF af= ,, a" THEN STOP 
2560 RETURN 
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